Hide/unhide columns of multiple sheets using tickbox

[bakarken]

Hello

I have a tickbox in Sheet1 and I would like a VBA that when this is ticked, columns H:M in ALL of Sheet2, Sheet3, Sheet4 and Sheet5 will hide. Then if this box is unchecked, they will reveal themselves.

I've seen examples where a VBA can apply to a single sheet, but is there a way it can be applied to multiple sheets?

Thanks

 

[DanteAmor]

You're welcome.

 

[DanteAmor]

Try:

Private Sub CheckBox1_Click()
    Application.ScreenUpdating = False
    shs = Array("sheet2", "sheet3", "sheet4", "sheet5")
    For i = LBound(shs) To UBound(shs)
        Sheets(CStr(shs(i))).Unprotect "abc"
        Sheets(CStr(shs(i))).Columns("H:M").EntireColumn.Hidden = CheckBox1
        Sheets(CStr(shs(i))).Protect "abc"
    Next
End Sub