Button to Hide and Unhide columns? - I am using a Mac

[russelldt]

Hello,

I have searched for a solution to the question I have asked, but can't find any that work for me. Either because I am running 365 on the Mac platform, or I just plain dumb (or both).

I have 2 sets on columns D to G and J to M. each independent of one another.

I need a button to Hide D to G, and then when I press it again to Unhide the same columns.

There will be another button for columns J to M that functions the same way.

 

[Fluff]

How about

Sub rselldt()
   With Range("D:G").EntireColumn
      .Hidden = Not .Hidden
   End With
End Sub

 

[russelldt]

Thanks Fluff, plain and simple. Works like a charm

 

[Fluff]

You're welcome & thanks for the feedback.

 

[russelldt]

Thanks Fluff, plain and simple. Works like a charm

One of the columns that I am hiding has Check Box's in the rows. These aren't being hidden when the rows hide.

 

[Fluff]

No they won't be. You would need to loop through all the checkboxes & see where they are located & then hide/unhide them.

 

[russelldt]

No they won't be. You would need to loop through all the checkboxes & see where they are located & then hide/unhide them.

Thanks. Got it

 

[Fluff]

 

[russelldt]

I missed the most important aspect in my brief

Many cells In the columns are locked, so the sheet is protected. I would like to unprotect the sheet, I unhide the columns and then protect the sheet again - in the same VBA.

Thank you

 

[Fluff]

How about

Sub russelldt()
   With Sheets("Sheet1")
      .Unprotect "Pword"
      With .Range("D:G").EntireColumn
         .Hidden = Not .Hidden
      End With
      .Protect "Pword"
   End With
End Sub