Sub Send1Sheet_ActiveWorkbook()
'Create a new Workbook Containing 1 Sheet (left most) _
and sends as attachment.
ThisWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:="dump@ozgrid.com", _
Subject:="Try Me " & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Sub