Hi all, When I run this code I think it should find where the blank cells are in that range, and then delete the corresponding row, for some reason this throws excel in to a never ending loading loop or something, any ideas why or how i can fix this code?
Code:
With worksheet_to_process
Dim LR As Long, i As Long
LR = worksheet_to_process.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With worksheet_to_process.Range("B" & i)
If .Value = "" Then
worksheet_to_process.Rows(i).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
End With
Next i
End With
Last edited: