Excel VBA Earráid ama reatha

Dia duit Tá do chód á úsáid agam chun raon in Excel a sheoladh trí ríomhphost. Má chuirim an raon ar ceal faighim earráid rite. An féidir roinnt cód nó bosca msg a chur leis chun é seo a chosc le do thoil agus freisin na colúin ar an gceangaltán a uathfheistiú. Tá cuid den chód thíos
Go raibh maith agat/media/kunena/emoticons/smile.png

Dim xFile Mar Teaghrán
Dim xFormat Chomh fada
Dim Wb Mar Leabhar Oibre
Dim WB2 Mar Leabhar Oibre
Dim Ws Mar Bhileog Oibre
Dim FilePath As Teaghrán
Dim ComhadName Mar Teaghrán
Dim OutlookApp Mar Réad
Dim OutlookMail Mar Réad
Dim WorkRng Mar Raon
xTitleId = "Sampla"
Set WorkRng = Iarratas.Roghnú
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
Application.ScreenUpdating = Bréagach
Application.DisplayAlerts = Bréagach
Socraigh Wb = Application.ActiveWorkbook
Wb.Bileoga Oibre.Cuir
Socraigh Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Socraigh Wb2 = Application.ActiveWorkbook
Roghnaigh Cás Wb.FileFormat
Cás xlOpenXML Workbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLLeabhar Oibre
Cás xlOpenXMLLeabhar OibreMacro Cumasaithe:
    Má Wb2.HasVBProject Ansin
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnable
    Eile
        xFile = ".xlsx"
        xFormat = xlOpenXMLLeabhar Oibre
    Deireadh Má
Cás Excel8:
    xFile = ".xls"
    xFormat = Excel8
Cás xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
Roghnaigh Roghnaigh