Unhide Specific Worksheets Macro

[Abi]

I'm trying to unhide several sheets (then hide them again at the end of the macro using = False). When I run this macro nothing happens. What's wrong with the code?

For Each ws In Worksheets 
    If ws.Name = ("OP KPI 1 pivot") And ws.Name = ("OP KPI 2 pivot") Then 
        With ws 
            .Visible = True 
        End With 
    End If 
Next ws 

[Craig Ottley]

It's probably this line of code

If ws. Name = ("OP KPI 1  pivot") And ws.Name = ("OP KPI 2 pivot") Then 

Change the AND to OR

If ws. Name = ("OP KPI 1  pivot") Or ws.Name = ("OP KPI 2 pivot") Then 

HTH

Craig

[AAE]

Sub Show_Hide_Sheets() 
    Dim ws As Worksheet 
     
    For Each ws In Worksheets 
        If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Then 
            ws.Visible = Not ws.Visible 
        End If 
    Next ws 
End Sub 

[Abi]

Thanks for getting back to me so quickly. But if I try with all the sheets, I get a syntax error, and I can't figure out what's wrong:

For Each ws In Worksheets 
    If ws.Name = ("OP KPI 1 pivot") Or ws.Name = ("OP KPI 2 pivot") Or ws.Name = ("OP KPI 3 pivot") Or ws.Name = ("OP KPI 4 pivot"), _ 
    Or ws.Name = ("OP KPI 5 pivot") Or ws.Name = ("SC KPI 1 pivot") Or ws.Name = ("SC KPI 2 pivot") Or ws.Name = ("SC KPI 3 pivot"), _ 
    Or ws.Name = ("SC KPI 4 pivot") Then 
        With ws 
            .Visible = True 
        End With 
    End If 
Next ws 

[Dave Hawley]

A Select Case Statement would the best.

Why not just show ALL sheets and hide the ones to remain remain hidden, if any?

Or, use something like;

ws.Visible=ws.Name Like "*pivot" 

Your code fails due the commas before the line continuation characters.

[Abi]

You got a point, Dave. I'll try that. Thanks.