VBA - Toggle between hidden columns

[jack109]

Hi

Im using this code

Sub Toggle_Columns()

    Dim r As Range
    
    For Each r In ActiveSheet.Range("P1")
        If r.EntireColumn.Hidden Then
            r.EntireColumn.Hidden = False
        Else
            r.EntireColumn.Hidden = True
        End If
    Next r
End Sub

How do I code it so that if Column P is showing, then hide column S and vice versa so if S is showing hide column P. This will be assigned to a toggle button so I switch between what column I want show when suited.

Thanks

 

[Snakehips]

@jack109
Try this.

Sub Toggle_Columns()

     ActiveSheet.Range("P1").EntireColumn.Hidden = Not ActiveSheet.Range("P1").EntireColumn.Hidden
     ActiveSheet.Range("S1").EntireColumn.Hidden = Not ActiveSheet.Range("P1").EntireColumn.Hidden
       
End Sub

Hope that helps.

 

[jack109]

Perfect, thank you.