xlup to find last row

[Curt]

Have the following macro. Need to add xlup to find last row so dont highlite
blank rows not in use. Not sure how to add to this?
Thanks All

Worksheets("Data").Activate
Range("d5:m100").Select
Selection.specialcells(xlCellTypeBlanks).Select
Selection.ClearContents
Dim blanks As Long
blanks = MsgBox(prompt:="Do you have blanks to complete?",
Buttons:=vbYesNo)
If blanks = vbYes Then
UserForm4.Hide
Userform1.Hide
Exit Sub
If blanks = vbNo Then
End If
Exit Sub
End If

 

[Bob Phillips]

Worksheets("Data").Activate
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("D5:M5").Resize(LastRow - 4).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.ClearContents
Dim blanks As Long
blanks = MsgBox(prompt:="Do you have blanks to complete?",
Buttons:=vbYesNo)
If blanks = vbYes Then
UserForm4.Hide
UserForm1.Hide
Exit Sub
If blanks = vbNo Then
End If
Exit Sub
End If


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Curt]

compiles fine when run get error object variable or with block variable not
set yellows LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Know there is a setting I am missing
used all settings I can think of so am lost
Thanks Again

 

[Curt]

My last post Thanks Bob got it working fine guess cryed wolf to soon. Thanks
much for your input