Macro For Hiding Column

[bamaisgreat]

Thanks for looking at my post.
I have the code below for hiding a column in my workbook. I was wanting to see if the code could be made so it would hide column A on any sheet. I have 21 sheets in the workbook

Sub Hide_Column()
ActiveSheet.Unprotect
If Sheets("Sht#1").Range("A").EntireColumn.Hidden = False Then
    Sheets("Sht#1").Range("A").EntireColumn.Hidden = True
Else
    Sheets("Sht#1").Range("A").EntireColumn.Hidden = False
End If
ActiveSheet.Protect
End Sub

 

[mumps]

This will work on any active sheet:

Sub Hide_Column()
    ActiveSheet.Unprotect
    If ActiveSheet.Range("A").EntireColumn.Hidden = False Then
        ActiveSheet.Range("A").EntireColumn.Hidden = True
    Else
        ActiveSheet.Range("A").EntireColumn.Hidden = False
    End If
    ActiveSheet.Protect
End Sub

or did you mean that you wanted it to work on all 21 sheets at the same time?

 

[JoeMo]

Try:

Sub Hide_Column()
Dim Sht As Worksheet
For Each Sht In Worksheets
    Sht.Columns("A").Hidden = Not Sht.Columns("A").Hidden
Next Sht
End Sub

 

[bamaisgreat]

Thanks for all the help