C
Chris
Hi all.
I have found a macro that will email the active worksheet. On the worksheet
I have 2 command buttons and some instructions for the operater so they know
where to input info. How can I select a range so that only a specific area
will be sent. Below is the macro and the area I want to send is ("A1:J69").
Your help would be of great help.
Regards
Chris
Public Sub Email_Midnight_Report()
Dim wb As Workbook
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Email_ " & ThisWorkbook.Name _
& ".xls" 'create a temporary workbook to email
.SendMail "(e-mail address removed)", _
"Midnight Report"
.ChangeFileAccess xlReadOnly
Kill .FullName 'delete temporary file
.Close False
End With
Application.ScreenUpdating = True
End Sub
I have found a macro that will email the active worksheet. On the worksheet
I have 2 command buttons and some instructions for the operater so they know
where to input info. How can I select a range so that only a specific area
will be sent. Below is the macro and the area I want to send is ("A1:J69").
Your help would be of great help.
Regards
Chris
Public Sub Email_Midnight_Report()
Dim wb As Workbook
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Email_ " & ThisWorkbook.Name _
& ".xls" 'create a temporary workbook to email
.SendMail "(e-mail address removed)", _
"Midnight Report"
.ChangeFileAccess xlReadOnly
Kill .FullName 'delete temporary file
.Close False
End With
Application.ScreenUpdating = True
End Sub