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").Va lue = 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