Change Macro from Running when Worksheet is Activated to Be Ran on Multiple Sheets By Button in 1 Sheet

[doctorgresham]

Hi,
I currently have the following macro on several sheets in a workbook that runs each time the sheets are activated. I'm looking to change it from being ran each time I click on the individual sheets to being ran only when a button is clicked on Sheet 1. So in other words, I want to make a button on sheet 1 that will run the following macro on sheets 2, 3, 4 etc. when i press it. I'm a novice when it comes to VB, so any help/ideas would be greatly appreciated!

Private Sub Worksheet_Activate()
Dim cell As Range
For Each cell In Range("A1:A424")
If cell.Value = "0" Then
cell.EntireRow.Hidden = True
ElseIf cell.Value = "1" Then
cell.EntireRow.Hidden = False
End If
Next
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
Do you want to run it on all sheets in the workbook, or just some of them?

 

[doctorgresham]

Just Some of Them

 

[Fluff]

How many sheets do you have & how many should the code work on?

 

[doctorgresham]

There is a total of 52 Sheets and I would like the code to run on 10 of them.

 

[Fluff]

Ok, how about

Sub doctorgresham()
   Dim Ws As Worksheet
   Dim Cl As Range
   
   For Each Ws In Sheets(Array("sheet1", "sheet2", "sheet3"))
      For Each Cl In Ws.Range("A1:A424")
         Cl.EntireRow.Hidden = Cl.Value = 0
      Next Cl
   Next Ws
End Sub

Change the sheet names to suit & add the rest in the same manner.

 

[doctorgresham]

Thank you. Could you also include a line that will unhide the row if it's a "1". The way I designed the spreadsheet is that Column "A" is either a 1 or 0 based on a selection in sheet 1. so in setup someone could change a selection and the push the macro button and it would hide or unhide based on the new values in column "A".

 

[Fluff]

Could you also include a line that will unhide the row if it's a "1".

It already does that.

 

[doctorgresham]

Ok cool, thanks. I'll get to plug it in and play with it during lunch. Thanks again for your help.

 

[Fluff]

You're welcome & thanks for the feedback.