Error with last table row (Run Time Error 91)

[JumboCactuar]

Hi,
i have this code for finding last used row in a table:

Sub LastTableRow()


lrow = Range("Table5").Columns(1).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row


Debug.Print "lrow :" & lrow


End Sub

This works great except for when the table has no data it outputs this error:

Anyone know why?

 

[mumps]

The asterisk (*) is looking for the last row that contains data. If there is no data, an error is generated.

 

[JumboCactuar]

The asterisk (*) is looking for the last row that contains data. If there is no data, an error is generated.

Could I possibly catch the error and return lrow = 2 if no data?

 

[mumps]

Assuming that there is no data in the sheet, this would do it.

Sub Test()
    Dim lrow As Long
    If Range("A1") = "" Then lrow = 2
End Sub

 

[JumboCactuar]

The asterisk (*) is looking for the last row that contains data. If there is no data, an error is generated.

Assuming that there is no data in the sheet, this would do it.

Sub Test()
    Dim lrow As Long
    If Range("A1") = "" Then lrow = 2
End Sub

Didn't think of doing this, thankyou works perfect

 

[mumps]

You are very welcome.