VBA to hide/unhide columns on range of protected worksheets if value in row 1 is "1"

[Jason44136]

Greetings experts...

I have a workbook with three summary sheets and 31 different sheets (1, 2, 3 …). On my "Setup" sheet, I have a command button that will have a macro assigned. I am trying to write the VBA to hide all columns on sheets 1-31 if the value in row 1 is "1". All sheets are protected, so I know we'd have to have an Unprotect and protect line in the VBA. I tried using some other suggestions from my other threads, but no luck. If the cells that trigger the 1 in row 1 change (and thus the 1 is no longer present)… this should update when the command button is pressed again. It does not need to update automatically. I should note that sheets 1-31 will always be identical with the row 1 value based on the setup sheet.

I would prefer the macro just works without having to use a command button at all, but having the button does not bother me.

 

[Peter_SSs]

You're welcome.

It is pretty fast as it only deals with the columns on one sheet (as it is activated) and it hides all the 1 columns at once rather than checking columns E:R one at a time.