Excel VBA körtidsfel

Hej, jag använder din kod för att skicka ett sortiment i excel via e-post. Om jag avbryter intervallet får jag ett körtidsfel. Är det möjligt att lägga till någon kod eller msgbox för att förhindra detta snälla och även för att autopassa kolumnerna på bilagan. En del av koden finns nedan
Tack/media/kunena/emoticons/smile.png

Dim xFile As String
Dim xFormat As Long
Dim Wb Som arbetsbok
Dim Wb2 Som arbetsbok
Dim Ws Som arbetsblad
Dimma filsökväg som sträng
Dim filnamn som sträng
Dimma OutlookApp som objekt
Dimma OutlookMail som objekt
Dim WorkRng As Range
xTitleId = "Exempel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Ställ in Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Ställ in Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Ställ in Wb2 = Application.ActiveWorkbook
Välj Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Fall xlOpenXMLWorkbookMacroEnabled:
    Om Wb2.HasVBProject Då
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    annars
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Fall Excel8:
    xFile = ".xls"
    xFormat = Excel8
Fodral xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
Avsluta Välj