Dim j As Long
Dim iCount As Integer
iCount = 0
For j = 1 To Form6.MSFlexGrid1.Rows - 1
If Left(Form6.MSFlexGrid1.TextMatrix(j, 2), 13) <> "" Then
Form6.MSFlexGrid1.Row = j
Form6.MSFlexGrid1.Col = 2
Form6.MSFlexGrid1.CellBackColor = &H80FF&
iCount = iCount + 1
End If
Next
msgbox iCount
Open in new window