Select range in macro



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.


Public Sub Email_Midnight_Report()
Dim wb As Workbook

Application.ScreenUpdating = False
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


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question