Excel VBA Kørselstidsfejl

Hej jeg bruger din kode til at sende en række i excel via e-mail. Hvis jeg annullerer området, får jeg en runtime-fejl. Er det muligt at tilføje noget kode eller msgbox for at forhindre dette venligst og også for at automatisk tilpasse kolonnerne på vedhæftet fil. En del af koden er nedenfor
Tak/media/kunena/emoticons/smile.png

Dim xFile As String
Dim xFormat så længe
Dim Wb Som arbejdsbog
Dim Wb2 Som arbejdsbog
Dim Ws Som arbejdsark
Dim FilePath som streng
Dim filnavn som streng
Dæmp OutlookApp som objekt
Dæmp OutlookMail som objekt
Dæmp WorkRng As Range
xTitleId = "Eksempel"
Set WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Indstil Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Indstil Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Indstil Wb2 = Application.ActiveWorkbook
Vælg Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Sag xlOpenXMLWorkbookMacroEnabled:
    Hvis Wb2.HasVBProject Så
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
Afslut Vælg