Quick VBA code help

[Hollywoood]

Hi all,

Im looking to create a button that will make multiple sheets visible and select them all, so that I can then update the format of them easily (they are all the same template that occaisonally all need the same update)

Is there a way to select all sheets between two worksheets say Start:End, make them visible and select them?

Thanks for the help!

 

[xtremegrump]

Give this a try:

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> UnHideSheets()<br><SPAN style="color:#007F00">'</SPAN><br><SPAN style="color:#007F00">' UnHideSheets Macro</SPAN><br><SPAN style="color:#007F00">'</SPAN><br><br><SPAN style="color:#007F00">'</SPAN><br>    Sheets(Array("Start", "End")).Select<br>    Sheets("End").Activate<br>    Sheets("Sheet2").Visible = <SPAN style="color:#00007F">True</SPAN><br>    Sheets("End").Select<br>    Sheets("Sheet3").Visible = <SPAN style="color:#00007F">True</SPAN><br>    Sheets("End").Select<br>    Sheets("Sheet4").Visible = <SPAN style="color:#00007F">True</SPAN><br>    Sheets("End").Select<br>    Sheets("Sheet5").Visible = <SPAN style="color:#00007F">True</SPAN><br>    Sheets("End").Select<br>    Sheets("Sheet6").Visible = <SPAN style="color:#00007F">True</SPAN><br>    Sheets("End").Select<br>    Sheets("Sheet7").Visible = <SPAN style="color:#00007F">True</SPAN><br>    Sheets("End").Select<br>    Sheets("Sheet8").Visible = <SPAN style="color:#00007F">True</SPAN><br>    Sheets("End").Select<br>    Sheets("Sheet9").Visible = <SPAN style="color:#00007F">True</SPAN><br>    Sheets("<SPAN style="color:#00007F">End</SPAN>").Select<br>    Sheets("Sheet10").Visible = <SPAN style="color:#00007F">True</SPAN><br>    Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", _<br>        "Sheet9", "Sheet10")).Select<br>    Sheets("Sheet2").Activate<br>End <SPAN style="color:#00007F">Sub</SPAN></FONT>