Hi again everyone,

i have this working code:

Sub emailtotal()
   Dim Ol As Outlook.Application
    Dim OlMail As MailItem
    
    Set Ol = New Outlook.Application
    Set OlMail = Ol.CreateItem(olMailItem)
    
    With OlMail
        .To = "email@email.com"
        .Subject = "help desk tracker date: "
        .Display
    End With
End Sub
i want a simple modification, i want my page sheet4 to be cut and paste in the body of the email code. is there a simple way of doing so?