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

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
 
M

Michael Lanier

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
How to open a specific worksheet via code from workbook_open 5
Macro to find and copy to another sheet 4
Mail a different file(s) to each person in a range 0
Copying cells and formula from closed workbook to all sheets in open workbook 0
Copy and paste range instead of entire row 1
Copying and Pasting Macro from one worksheet to another 2

Top