Open all Worksheets that begin with "C_"

[MarkCBB]

HI there,

I am using the following code to open worksheets, but every time I add a new chart ("C_" stands for Chart), i need to update the VBA.

Is there a way to open all worksheets that Begin with "C_" instead of the way that I am doing it?

Sub OPEN_C()

    Sheets("C_Weekly").Visible = True
    Sheets("C_CENTRAL").Visible = True
    Sheets("C_Best vs. Last").Visible = True
    Sheets("C_EASTERN CAPE").Visible = True
    Sheets("C_GAUTENG NORTH").Visible = True
    Sheets("C_GAUTENG SOUTH").Visible = True
    Sheets("C_KWAZULU NATAL").Visible = True
    Sheets("C_LIMPOPO").Visible = True
    Sheets("C_MPUMALANGA").Visible = True
    Sheets("C_Western Cape").Visible = True
End Sub

 

[Domenic]

Try...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Sub[/color] OPEN_C()

    [color=darkblue]Dim[/color] wks [color=darkblue]As[/color] Worksheet
    
    [color=darkblue]For[/color] [color=darkblue]Each[/color] wks [color=darkblue]In[/color] ActiveWorkbook.Worksheets
        [color=darkblue]If[/color] Left(wks.Name, 1) = "C" [color=darkblue]Then[/color]
            wks.Visible = [color=darkblue]True[/color]
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color] wks
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]

 

[MarkCBB]

AWESOME!!! thanks Domenic!, that is very helpfull.

Thank-you

 

[MarkCBB]

I cahnge the code to this, and it does work, is there a reason I am over looking?

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
If Left(wks.Name, 2) = "C_" Then
wks.Visible = False
End If
Next wks

 

[chuckles1066]

Shouldn't the third line of code be

wks.Visible = True

?

 

[Domenic]

Sorry, somehow I missed the fact that you wanted to check for "C_", not just "C". And, I'm assuming you actually want...

wks.Visible = True

 

[Norie]

If these are chart sheets you might need to use Sheets instead of Worksheets.

Try this code to see if any of the sheets are actually charts.

Dim ws
 
For Each ws In ThisWorkbook.Sheets
    Debug.Print ws.Name & "-" & TypeName(ws)
Next ws