Gwall amser rhedeg VBA

Helo Rwy'n defnyddio'ch cod i anfon ystod Excel fel atodiad e-bost ond yn cael gwall amser rhedeg os byddaf yn canslo'r ystod. A oes cod y gallaf ei ychwanegu neu msgbox os gwelwch yn dda i atal hyn rhag digwydd? Diolch cod isod.

Is-Range Anfon()
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
FilePath = Amgylchedd$("temp") & "\"
FileName = Wb.Name & Fformat(Nawr, "dd-mmm-bb h-mm-ss")
Gosod OutlookApp = CreateObject ("Outlook.Application")
Gosod OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFformat
Gyda OutlookMail
    .i = ""
    .CC = ""
    .BCC = ""
    .Subject = "Profion"
    .Body = " Helo ."
    .Attachments.Add Wb2.FullName
    .Anfon
Diwedd Gyda
Wb2.Close
Lladd FilePath & FileName & xFile
Gosod OutlookMail = Dim byd
Gosod OutlookApp = Dim byd
Ws.Dileu
Application.DisplayAlerts = Gwir
Application.ScreenUpdating = Gwir
Is-End