macro to select all worksheets

[Kade]

Hi

I need code to select all sheets when I activate the worksheet "summary"

If I add extra worksheets I need them to be included in the action, (is this called dynamic?)

I recorded this macro using "select all sheets" from the sheet tab.
Then I pasted it into a "worksheet open" in the code area.
However if I add extra sheets they are not included.

I think I need to change the code on the Sheets line, but do not know what to put 8(

Private Sub Worksheet_Activate()
Sheets(Array("summary", "Labrador", "Poodle", "Malt-terrier")).Select
Sheets("summary").Activate
End Sub

 

[Ivan F Moala]

On 2002-09-24 23:29, Kade wrote:
Hi

I need code to select all sheets when I activate the worksheet "summary"

If I add extra worksheets I need them to be included in the action, (is this called dynamic?)

I recorded this macro using "select all sheets" from the sheet tab.
Then I pasted it into a "worksheet open" in the code area.
However if I add extra sheets they are not included.

I think I need to change the code on the Sheets line, but do not know what to put 8(

Private Sub Worksheet_Activate()
Sheets(Array("summary", "Labrador", "Poodle", "Malt-terrier")).Select
Sheets("summary").Activate
End Sub

Try

<pre/>
Private Sub Worksheet_Activate()

With Application
.EnableEvents = False
Worksheets.Select
.EnableEvents = True
End With

End Sub
</pre>