E-mail a worksheet, then auto open another and do the same by valueof a cell

  • Thread starter Thread starter Michael Lanier
  • Start date Start date
M

Michael Lanier

Can I, by the value of a cell in Sheet1, force multiple worksheets to
open, e-mail the sheet, close and perform the same set of events from
one worksheet to the next? I am using the following macro to get the
first sheet to open and e-mail a copy of itself:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveWorkbook.Worksheets("Sheet1").Range("O8").Value = 1 Then
ActiveWorkbook.Worksheets("Sheet1").Copy
ActiveWorkbook.SendMail Worksheets("Sheet1").Range("O9"),
Worksheets("Sheet1").Range("L4")
ActiveWorkbook.Close False
End If
End Sub

O8 is the trigger that initiates the event
O9 is the recipient's e-mail address
L4 is an accompanying message in the title of the message

Thanks for any help anyone can provide.

Michael
 
Thanks Ron. I'll be trying it later today, but from what I can tell,
it looks to be what I'm looking for.

Michael
 

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

Similar Threads

Copy a worksheet that can be attached to a web-based internet system 2
Cell values to an array, then array transpose to another workbook 8
Ron de Bruin - Merge cells from all worksheets 0
Mail a different file(s) to each person in a range 0
difficulty with percentage from worksheet as seen by VBA 1
Macro to find and copy to another sheet 4
Copying cells and formula from closed workbook to all sheets in open workbook 0
Dynamic WebQuery freezes around the 50 or 60 iteration of the loop 2

Back
Top