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.
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.