R
RyanH
I need a macro to scan down Col. B from the ActiveCell to find the next cell
that is hightlighted orange ( .Interior.ColorIndex = 40). Here is what I
got, but it does not seem to work.
Sub FindLastRow()
Dim LastRow As Long
Dim i As Long
Do
For i = ActiveCell.Row To ActiveCell.Row + 30
LastRow = Cells(i, 2).Row
Next i
Loop Until Cells(i, 2).Interior.ColorIndex = 40
MsgBox "LastRow = " & LastRow
End Sub
Thanks in Advance,
Ryan
that is hightlighted orange ( .Interior.ColorIndex = 40). Here is what I
got, but it does not seem to work.
Sub FindLastRow()
Dim LastRow As Long
Dim i As Long
Do
For i = ActiveCell.Row To ActiveCell.Row + 30
LastRow = Cells(i, 2).Row
Next i
Loop Until Cells(i, 2).Interior.ColorIndex = 40
MsgBox "LastRow = " & LastRow
End Sub
Thanks in Advance,
Ryan