Fehlermeldung bei Makro lauf unterbiden

wer kann mir weiterhelfen?

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Sheets("Schrottkarossen").Activate
Columns("A:P").AutoFilter Field:=16, Criteria1:=""
   Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
   Workbooks.Add
   Range("A1").PasteSpecial xlPasteValues
   Rows(1).Delete
   ComboBox1.List = Range("a1").CurrentRegion.Value
   ActiveWorkbook.Close savechanges:=False
   ComboBox1.ListIndex = 0
   Columns("A:P").AutoFilter
   Sheets("Übersicht").Activate
     TextBox3.Text = Now
      Application.ScreenUpdating = True
End Sub

jetzt zu meinen Problem: wenn kein Datensatz mehr vorhanden ist, nach dem Filtern, dann kommt die Fehlermeldung "Debuugen".
Kann mann diese fehlermeldung nicht abfangen und stattdesen eine MsgBox "Kein datensatz vonhanden" einblenden?

P.S. das Makro ist in einer Userform

für eure hilfe wäre ich sehr dankbar!!!

mfg

erich