Quote:
Originally Posted by Alansidman
Maybe this:
Code:
Option Explicit
Sub ChrisOK()
Dim i As Long, lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = lr To 1 Step -1
If Range("C" & i) = "" Then
Range("C" & i).EntireRow.Delete
ElseIf Range("D" & i) = "#VALUE" Then
Range("D" & i).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
MsgBox ("Complete")
End Sub
|
I would use Alan's code, but with one modification of the first "If" statement:
If Range("C" & i) = "" And Range("A" & i) <> "" Then