Excel VBA Gwall amser rhedeg

Helo Rwy'n defnyddio'ch cod i anfon ystod yn excel trwy e-bost. Os byddaf yn canslo'r ystod byddaf yn cael gwall amser rhedeg. A yw'n bosibl ychwanegu rhywfaint o god neu msgbox i atal hyn os gwelwch yn dda a hefyd i awtomeiddio'r colofnau ar atodiad. Mae rhan o'r cod isod
diolch/media/kunena/emoticons/smile.png

Dim xFile Fel Llinynnol
Dim xFformat Cyhyd
Dim Wb Fel Llyfr Gwaith
Dim Wb2 Fel Gweithlyfr
Dim Ws Fel Taflen Waith
Dim FfeilPath Fel Llinynnol
Enw Ffeil Dim Fel Llinyn
Dim OutlookApp Fel Gwrthrych
Dim OutlookMail Fel Gwrthrych
Dim WorkRng Fel Ystod
xTitleId = "Enghraifft"
Set WorkRng = Cais.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
Application.ScreenUpdating = Anghywir
Application.DisplayAlerts = Gau
Gosod Wb = Application.ActiveWorkbook
Taflenni Gwaith wb.Add
Gosod Ws = Application.ActiveSheet
WorkRng.Copi Ws.Cells(1, 1)
Ws.Copy
Gosod Wb2 = Application.ActiveWorkbook
Dewiswch Achos Wb.FileFormat
Achos xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Achos xlOpenXMLWorkbookMacro wedi'i alluogi:
    Os Wb2.HasVBProject Yna
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    arall
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    Gorffennwch Os
Achos Excel8:
    xFile = ".xls"
    xFformat = Excel8
Achos xlExcel12:
    xFile = ".xlsb"
    xFformat = xlExcel12
Diwedd Dewis