Hello Everyone,
Getting a runtime 438 when running this.
I believe everything is defined...
How would you write this properly if the macro is ran from Sheet "SignoffChecks"???
Thanks for any help
Getting a runtime 438 when running this.
I believe everything is defined...
How would you write this properly if the macro is ran from Sheet "SignoffChecks"???
Thanks for any help
VBA Code:
Sub SignOffDeleteRow()
Dim r As Long
Dim LastRow As Long
LastRow = Worksheets("Sign_Off_Selection").Cells(Rows.Count, "A").End(xlUp).Row
For r = Worksheets("Sign_Off_Selection").LastRow To 1 Step -1
If Worksheets("Sign_Off_Selection").Cells(r, 8) = Worksheets("SignoffChecks").Range("H11") Then
Rows(r).Delete
End If
Next r
End Sub