1) is there any . or is function that deals with the background color?
i need to use it like:
if cells(i,1).backcolor=6 then
code
endif
2)i know absolutely nothing about strings and i want to make my button idiot proof so i want it to be
if textbox.value>1000 because the minimum is 4 digits but sometimes there will be two letters on the end. so i need to know how to subtract 2 characters off of a string if the string is =6

Hi,

For question 1, the solution might be
range("B3").Interior.ColorIndex = 10

well, i not really understand what you're asking at question 2.

:)

ix

' Method 1
Function RightLen(sText As String) As Integer
    If Len(sText) = 6 Then
        RightLen = Left(sText, 4)
    Else
        RightLen = sText
    End If
End Function

' Method 2
Function ValidNum(sText As String) As Integer
    If IsNumeric(sText) Then
        ValidNum = sText
    Else
        ValidNum = Left(sText, 4)
    End If
End Function

In either instance just use the function to get the actual value and then test against it

Sub CheckValue()
    If RightLen(TextBox.Value) > 1000 Then
        ' Do Something....
    End If
End Sub