Excel VBA Laufzeitfehler

Hallo, ich verwende Ihren Code, um einen Bereich in Excel per E-Mail zu senden. Wenn ich den Bereich abbreche, erhalte ich einen Laufzeitfehler. Ist es möglich, einen Code oder eine Msgbox hinzuzufügen, um dies zu verhindern und auch die Spalten im Anhang automatisch anzupassen? Ein Teil des Codes ist unten
Vielen Dank/media/kunena/emoticons/smile.png

Dim xFile als Zeichenfolge
Dimmen Sie xFormat so lange
Dim Wb als Arbeitsmappe
Dim Wb2 als Arbeitsbuch
Dim Ws als Arbeitsblatt
Dateipfad als Zeichenfolge dimmen
Dim Dateiname als String
Dim OutlookApp als Objekt
Dim OutlookMail als Objekt
WorkRng als Bereich dimmen
xTitleId = „Beispiel“
Sund WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = Falsch
Legen Sie Wb = Application.ActiveWorkbook fest
Wb.Worksheets.Add
Setzen Sie Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Kopie
Legen Sie Wb2 = Application.ActiveWorkbook fest
Wählen Sie Case Wb.FileFormat
Fall xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Fall xlOpenXMLWorkbookMacroEnabled:
    Wenn Wb2.HasVBProject dann
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    sonst
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Fall Excel8:
    xDatei = ".xls"
    xFormat = Excel8
Fall xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select