 = 15
            lRow = lRow + 1
            Do While lRow &lt;= grdOutlook.Rows And Not bFound
               If grdOutlook.CellItemData(lRow, 14) = 0 Then
                  If Not (bIgnoreUntilNext) Then
                     grdOutlook.RowVisible(lRow) = True
                  End If
               ElseIf grdOutlook.CellItemData(lRow, 14) &gt; lItemData Then
                  grdOutlook.RowVisible(lRow) = True
                  bIgnoreUntilNext = (grdOutlook.CellExtraIcon(lRow, 14) = 16)
               E