Errore di runtime di Excel VBA

Ciao, sto usando il tuo codice per inviare un intervallo in excel via e-mail. Se cancello l'intervallo ottengo un errore di runtime. È possibile aggiungere del codice o un msgbox per impedirlo, per favore, e anche per adattare automaticamente le colonne in allegato. Parte del codice è sotto
Grazie/media/kunena/emoticons/smile.png

Dim xFile come stringa
Dim xFormat quanto a lungo
Dim Wb come cartella di lavoro
Dim Wb2 come cartella di lavoro
Oscura Ws come foglio di lavoro
Attenuare FilePath come stringa
Dim FileName As String
Oscura OutlookApp come oggetto
Oscura OutlookMail come oggetto
Dim WorkRng come intervallo
xTitleId = "Esempio"
Set WorkRng = Selezione.Applicazione
Imposta WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Tipo:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Imposta Wb = Application.ActiveWorkbook
Wb.Fogli.Add
Imposta Ws = Application.ActiveSheet
LavoroRng.Copia Ws.Cells(1, 1)
Ws.Copia
Imposta Wb2 = Application.ActiveWorkbook
Selezionare Caso Wb.FileFormat
Caso xlOpenXMLCartella di lavoro:
    xFile = ".xlsx"
    xFormato = xlOpenXMLCartella di lavoro
Caso xlOpenXMLWorkbookMacroEnabled:
    Se Wb2.HasVBProject allora
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Altro
        xFile = ".xlsx"
        xFormato = xlOpenXMLCartella di lavoro
    End If
Caso Excel8:
    xFile = ".xls"
    xFormato = Excel8
Caso xlExcel12:
    xFile = ".xlsb"
    xFormato = xlExcel12
End Select