Try this:
Dim lngCol As Long
Dim lngRow As Long
lngCol = 7
For lngRow = 0 To fg1.Rows - 1
fg1.Col = lngCol
fg1.Row = lngRow
Select Case Val(fg1.Text)
Case Is < 0
fg1.CellBackColor = vbRed
Case Else
fg1.CellBackColor = vbWhite
End Select
Next
This is sample code only - it has no error checking, but may get you started
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first
'People who live in windowed environments shouldn't cast pointers.'