Option Explicit
Sub Email_Worksheet_As_Workbook()
Sheets("Sheet1").Copy '<--- edit as required"
With ActiveWorkbook
'.Windows(1).Visible = False
Application.DisplayAlerts = False
.SaveAs Environ("TMP") & "\Your Sheet Name.xlsx", FileFormat:=xlWorkbookDefault, ConflictResolution:=xlLocalSessionChanges
Application.DisplayAlerts = True
.Close (True)
End With
With CreateObject("Outlook.Application").CreateItem(0)
.To = "me@yahoo.com"
.Subject = "Worksheet: " & ActiveSheet.Name
.Body = ""
.Attachments.Add Environ("TMP") & "\Your Sheet Name.xlsx"
.Display
'.send
End With
End Sub