Email single worksheet from workbook

[derek.hughes]

Can anyone help me out with this code:

Sub HideAllButOneSheet()
Dim SubJ, Recip As String
SubJ = "HE ACTUALS"
Recip = "derek.hughes@vcsu.edu"
ThisWorkbook.SendMail Recip, SubJ
MsgBox "Email Sent"
End Sub

It sends the whole workbook and I only want it to send the active sheet.

 

[Smitty]

See: Mail one Sheet With SendMail

HTH,

 

[derek.hughes]

Thanks!