How can I create a Show/Hide checkbox

[MSIsam]

This should be a simple one. I have created 2 buttons, each with the following macro:

Sub ShowTab()
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

Sub HideTab()
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

I would like to change this to a check box for "Show Tabs" so that if unchecked, the tabs are hidden and if checked, the tabs are shown.

I have tried with recording macros but with my limited VB skills, just can't get it done.

Any ideas?
Sam

 

[DPlank]

You'll need to use the Control toolbox and place the checkbox in a cell.

Put the following code into the Worksheet_change method

Sub ShowHideTabs()
  If Worksheetname.checkboxname.value = True Then
         ActiveWindow.DisplayWorkbookTabs = True
  Else
         ActiveWindow.DisplayWorkbookTabs = False
End Sub

Now whenever a value on the checkbox is changed, the sub will kick off and update as requested.

Hope this helps

Cheers,
Dave

"Yes, I'll stop finding bugs in the software - as soon as you stop writing bugs into the software." <-- Me

For all your testing needs: Forum1393