Same action in 3 sheets

[ExcelRoy]

Hi all,

I am looking to add another 2 sheets to the following code but cant seem to get it working

the 2 sheets are "Set1" and "Set2"

The code works to hide 213:322 when clicked and unhides if clicked again

Many thanks for any help



Sub Picture2_Click()

Sheets("Parts Requisition").Unprotect Password:="nh8911"

Rows("213:322").Hidden = Not Rows("213:322").Hidden

Sheets("Parts Requisition").Protect Password:="nh8911"

End Sub

 

[mumps]

Try:

Sub Picture2_Click()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In Sheets(Array("Parts Requisition", "Set1", "Set2"))
        ws.Unprotect Password:="nh8911"
        ws.Rows("213:322").Hidden = Not ws.Rows("213:322").Hidden
        ws.Protect Password:="nh8911"
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[ExcelRoy]

Perfect many thanks

 

[mumps]

You are very welcome.