What do i did about array sheets selection when they change the name?

[tonywatsonhelp]

Hi Everyone,
I have a document that we got someone to do some work on and when it came back some of the sheets have been renamed In the Project Widow (I hopes thats correct)

So Instead of
Sheet16(Dashboard)
we have
wsDashboard(Dashboard)

now this has coused me a problem with this code and I'm not sure whats wrong?

Sub Selt_Shts1() 
Dim ws As Sheet
For Each ws In Array(wsData, wsProd, wsMarket, wsChars, wsDelivery, wsDevelopit)
ws.Select
ActiveWindow.DisplayHeadings = False
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next ws
end sub
[LEFT][COLOR=#222222][FONT=Verdana]
[/FONT][/COLOR][/LEFT]

Now the "wsData" is the first part and we want to use this so if the sheet gets renamed it still runs
but everytime I run it I get debug Object required

Please Help
Thanks
Tony
​

 

[RoryA]

If it's called wsDashboard, why are you using wsData?

 

[tonywatsonhelp]

Hi Rory,
Sorry to confuse there are lots of tabs the ones in the array are the ones i want the macro to run on

 

[Fluff]

Try changing the Dim statement to

   Dim ws As Variant

 

[tonywatsonhelp]

Thanks Fluff,
that did the trick
Tony

 

[Fluff]

You're welcome & thanks for the feedback