VBA Code to Unhide columns

[chelberg3]

I'd like to unhide columns based on clicking the a button that I have created. When the user clicks the button, columns F-I would unhide. When the button is clicked again it moves to unhide the next group of columns J-M and so on. I'd like to use the same button to keep this quoting worksheet clean for the salesman. What is the best way to do this? do i need multiple macros that get called and run if the columns are already shown?

Thanks for any help.

 

[Joe4]

Welcome to the Board!

Try attaching this code to your macro button.

Sub UnhideColumns()

    Dim c As Long
    
'   Indicate what columns to include (F=6, ...)
    For c = 6 To 100 Step 4
'       Check to see if column is hidden
        If Columns(c).Hidden = True Then
'           Unhide columns
            Range(Columns(c), Columns(c + 3)).Hidden = False
            Exit Sub
        End If
    Next c
    
End Sub

Note: you should update the "100" in the "For ..." line to reflect the maximum possible hidden column you may have.

 

[chelberg3]

That's exactly what I needed. Thanks Joe4

 

[Joe4]

You are welcome.
Glad I was able to help!