Getting Error 438 when Running macro from Sht1 to delete row on Sht2

[Sleeplol]

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

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

 

[Dermot]

Try this change
from
LastRow = Worksheets("Sign_Off_Selection").Cells(Rows.Count, "A").End(xlUp).Row
to
LastRow = Worksheets("Sign_Off_Selection").Cells(Rows.Count,1).End(xlUp).Row

 

[MARK858]

This line

For r = Worksheets("Sign_Off_Selection").LastRow To 1 Step -1

should just be

For r = LastRow To 1 Step -1

There is nothing wrong with

Cells(Rows.Count, "A")

 

[Sleeplol]

Hey Dermot,

Thanks for your help, but I'm still getting the same error highlighting

For r = Worksheets("Sign_Off_Selection").LastRow To 1 Step -1

 

[Dermot]

did you see the other reply to your question?

 

[Sleeplol]

Hey Mark858,
Is that your area code? I lived in San Diego too once upon a time.

I changed that line, and don't get an error, but nothing happens.
Is there a way to define the sheet Last Row is on?

 

[Sleeplol]

Yes, thanks Dermont. I saw it after I posted my reply to you.
Still having an issue though

 

[Dermot]

Yes, thanks Dermont. I saw it after I posted my reply to you.
Still having an issue though

It's hard to say without seeing all of it, but could it be this?

Worksheets("Sign_Off_Selection").Rows(r).Delete
instead of
Rows(r).Delete

 

[Sleeplol]

Basically I have a range on sheet Sign_Off_Selection from A:H (Rows are ever expanding) with column H being =row()-1

Userform is on sheet SignoffChecks. A macro first runs to determine the row that needs deleting, it temporally pastes that row number to Worksheets("SignoffChecks").Range("H11")
then the macro in question takes over.

This would all need to be done from the form on SignoffChecks

 

[Sleeplol]

That did it!
Thanks Dermot!!

Also thanks to Mark858, I changed the line you suggested.

Heck yeah! Way to end the night