Hello all,
This code is working..somewhat...When i run the macro to hide the Column and a group of AxtiveX CheckBoxes (there 31 of them) It hides them successfully...But when i run the second macro to unhide...it DOES unHide the column, but i am having to Clidk Design Mode to Show the CHeck Boxes...If you can make the code shorter that would be great! or streamline it. also to add, when the sheet is opened my check boxes arent staying in the Range the are supposed to...they keep shifting to the right...
Any help would be appreciated.
This Code Hides....
This Code Unhides...
Thank you!
This code is working..somewhat...When i run the macro to hide the Column and a group of AxtiveX CheckBoxes (there 31 of them) It hides them successfully...But when i run the second macro to unhide...it DOES unHide the column, but i am having to Clidk Design Mode to Show the CHeck Boxes...If you can make the code shorter that would be great! or streamline it. also to add, when the sheet is opened my check boxes arent staying in the Range the are supposed to...they keep shifting to the right...
Any help would be appreciated.
This Code Hides....
Code:
Sub HideU()
Columns("U:U").EntireColumn.Hidden = True
With ActiveSheet.Shapes("Group 1")
.GroupItems(1).Visible = True
.GroupItems(2).Visible = True
.GroupItems(3).Visible = True
.GroupItems(4).Visible = True
.GroupItems(5).Visible = True
.GroupItems(6).Visible = True
.GroupItems(7).Visible = True
.GroupItems(8).Visible = True
.GroupItems(9).Visible = True
.GroupItems(10).Visible = True
.GroupItems(11).Visible = True
.GroupItems(12).Visible = True
.GroupItems(13).Visible = True
.GroupItems(14).Visible = True
.GroupItems(15).Visible = True
.GroupItems(16).Visible = True
.GroupItems(17).Visible = True
.GroupItems(18).Visible = True
.GroupItems(19).Visible = True
.GroupItems(20).Visible = True
.GroupItems(21).Visible = True
.GroupItems(22).Visible = True
.GroupItems(23).Visible = True
.GroupItems(24).Visible = True
.GroupItems(25).Visible = True
.GroupItems(26).Visible = True
.GroupItems(27).Visible = True
.GroupItems(28).Visible = True
.GroupItems(29).Visible = True
.GroupItems(30).Visible = True
.GroupItems(31).Visible = True
End With
End Sub
This Code Unhides...
Code:
Sub UnHideU()
Columns("U:U").EntireColumn.Hidden = False
With ActiveSheet.Shapes("Group 1")
.GroupItems(1).Visible = False
.GroupItems(2).Visible = False
.GroupItems(3).Visible = False
.GroupItems(4).Visible = False
.GroupItems(5).Visible = False
.GroupItems(6).Visible = False
.GroupItems(7).Visible = False
.GroupItems(8).Visible = False
.GroupItems(9).Visible = False
.GroupItems(10).Visible = False
.GroupItems(11).Visible = False
.GroupItems(12).Visible = False
.GroupItems(13).Visible = False
.GroupItems(14).Visible = False
.GroupItems(15).Visible = False
.GroupItems(16).Visible = False
.GroupItems(17).Visible = False
.GroupItems(18).Visible = False
.GroupItems(19).Visible = False
.GroupItems(20).Visible = False
.GroupItems(21).Visible = False
.GroupItems(22).Visible = False
.GroupItems(23).Visible = False
.GroupItems(24).Visible = False
.GroupItems(25).Visible = False
.GroupItems(26).Visible = False
.GroupItems(27).Visible = False
.GroupItems(28).Visible = False
.GroupItems(29).Visible = False
.GroupItems(30).Visible = False
.GroupItems(31).Visible = False
End With
End Sub
Thank you!
Last edited: