Σφάλμα χρόνου εκτέλεσης του Excel VBA

Γεια, χρησιμοποιώ τον κωδικό σας για να στείλω ένα εύρος στο excel μέσω e-mail. Αν ακυρώσω το εύρος, λαμβάνω σφάλμα χρόνου εκτέλεσης. Είναι δυνατόν να προσθέσετε κάποιον κώδικα ή πλαίσιο μηνύματος για να το αποτρέψετε, παρακαλώ και επίσης να προσαρμόσετε αυτόματα τις στήλες στο συνημμένο. Μέρος του κώδικα είναι παρακάτω
Ευχαριστώ/media/kunena/emoticons/smile.png

Dim xFile ως συμβολοσειρά
Dim xFormat As Long
Dim Wb ως βιβλίο εργασίας
Dim Wb2 ως βιβλίο εργασίας
Φύλλο εργασίας Dim Ws As
Dim FilePath ως συμβολοσειρά
Dim FileName As String
Εξασθένιση του OutlookApp ως αντικείμενο
Εξασθένιση του OutlookMail ως αντικείμενο
Dim WorkRng As Range
xTitleId = "Παράδειγμα"
Set WorkRng = Εφαρμογή.Επιλογή
Ορισμός WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Ορισμός Wb = Application.ActiveWorkbook
Wb.Φύλλα εργασίας.Προσθήκη
Σετ Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Αντιγραφή
Ορισμός Wb2 = Application.ActiveWorkbook
Επιλέξτε Case Wb.FileFormat
Περίπτωση xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Περίπτωση xlOpenXMLWorkbookMacroEnabled:
    Αν Wb2.HasVBProject Τότε
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Αλλού
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Περίπτωση Excel8:
    xFile = ".xls"
    xFormat = Excel8
Περίπτωση xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
Επιλέξτε Τερματισμός