hip2b2
Board Regular
- Joined
- May 5, 2003
- Messages
- 135
- Office Version
- 2019
- Platform
- Windows
I can delete the marked line and the code seems to properly run. Is the code formatted as it should be????
Thanks hip
VBA Code:
'Delete Consecutive expty Rows
Dim i As Long, lr1 As Long '<<< This line does not seem to impact the code
lr1 = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lr
If Range("B" & i).Value Like "Require" & "*" & "to run" And Range("B" & i - 1).Value = "" Then
Cells(i, 2).EntireRow.Delete
End If
Next i
End With
'End
Thanks hip