Hi Ray707, try this code to send the last saved version of the active workbook:
 
Sub SendWorkSheet()
   
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    On Error Resume Next
    Application.ScreenUpdating = False


    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
        
    With OutlookMail
        .To = "xxxxx"
        .CC = ""
        .BCC = ""
        .Subject = "Excel sheet test"
        .Body = "Hello, please see file attached. Regards"
        .Attachments.Add ActiveWorkbook.FullName
        .display
       ' .Send
    End With
    
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
    Application.ScreenUpdating = True
    
End Sub