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

[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

 

[Ron de Bruin]

Maybe this ?
http://www.rondebruin.nl/mail/folder1/mail5.htm

 

[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