RangeFind Produces Error 424

[Turk182]

Hello. Can someone please help. I am not sure why I'm getting this error: "Runtime error 424 Object Required”.

Here is the VBA code:

Sub RangeFind()

Dim lastRow As Long, lastColumn As Long

lastRow = shJagged.Cells.Find(What:="*" _

, LookIAt:=xlPart _

, LookIn:=xlFormulas _

, searchorder:=xlByRows _

, searchdirection:=xlPrevious).Row

lastColumn = shJagged.Cells.Find(What:="*" _

, LookIAt:=xlPart _

, LookIn:=xlFormulas _

, searchorder:=xlByColumns _
, searchdirection:=xlPrevious).Column

rg.Select

End Sub

Thx.

 

[Turk182]

Hi Dave,
Unfortunately, I get "run-time error 91" again.

 

[dmt32]

Hi,
can you use code tags when posting code (from menu bar above press VBA & place your code between the tags

Dave