I want to select the first cell in an empty row in my range. How do I
correct my code? Thanks!
----------
l_LastRow = Sheet5.Cells.Find(What:=" * ", After:=[A1], _
SearchDirection:=xlPrevious).Row
Sheet5.Range("B3", Sheet5.Cells(l_LastRow + 1, 10)).Select
For l_Count = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(l_Count)) = 0 Then
With Range(Cells(Selection.Rows(l_Count), 2).Address)
.Value = 2005
End With
End If
Next
--
Coolboy55
------------------------------------------------------------------------
Coolboy55's Profile:
http://www.excelforum.com/member.php...o&userid=26508
View this thread:
http://www.excelforum.com/showthread...hreadid=400895