Error direction if no records found

Excel 2003
vba Updated

I have a routine I'm calling to add data to a listbox.

If the code below sees no rows in the  Sheet "List".. I need the code to move on.
Error 91 is the code Number..

I know I could use "On Error Resume Next"
but maybe something better ?


DetermineUsedRange UsedRng
           ' select the range for the listbox
            ListBox1.RowSource = "List!" & UsedRng.Address

Thanks
fordraiders

Sub DetermineUsedRange(ByRef theRng As Range)

Dim FirstRow As Integer, FirstCol As Integer, _
   LastRow As Integer, LastCol As Integer
   
   On Error GoTo DetermineUsedRange_Error

FirstRow = Cells.Find(What:="*", _
     SearchDirection:=xlNext, _
     SearchOrder:=xlByRows).Row
FirstCol = 1
LastRow = Cells.Find(What:="*", _
     SearchDirection:=xlPrevious, _
     SearchOrder:=xlByRows).Row
LastCol = Cells.Find(What:="*", _
     SearchDirection:=xlPrevious, _
     SearchOrder:=xlByColumns).Column
Set theRng = Range(Cells(FirstRow, FirstCol), _
   Cells(LastRow, LastCol))
'MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DetermineUsedRange for ListData of Form frmList"


   On Error GoTo 0
   Exit Sub
DetermineUsedRange_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DetermineUsedRange for ListData of Form frmList"

End Sub

Select all Open in new window