Click Twice on a Macro Button

[ricardo9316]

Is it possible to have a button on a worksheet do different things on its first click to a second click?

For example, I currently have a button that unhides tabs in a worksheet and I would like the tabs to be hidden again if clicked twice, so like a toggle button? My code so far is as follows:


Sub UnhideSheets()


Sheets("Monique").Visible = True

End Sub



Please can anyone help, or would I need a second button to hide the rows again?

Many thanks for taking the time to read my post and any help/guidance would be most appreciated.

 

[Gary McMaster]

Maybe this?

Sub UnhideSheets()

If Sheets("Monique").Visible = True Then
    Sheets("Monique").Visible = False
Else
    Sheets("Monique").Visible = True
End If

End Sub

 

[ricardo9316]

U tha man G

 

[Eric W]

A bit more succinct:

Sheets("Monique").Visible = Not Sheets("Monique"").Visible

If you want to get a little fancier, you can even change the caption on the button to say "Hide" or "Unhide"

 

[Vladf22]

@Eric W
''If you want to get a little fancier, you can even change the caption on the button to say "Hide" or "Unhide" '' . Can you show me how to do that?

Thanks

 

[Fluff]

What type of button are you using?

 

[Vladf22]

What type of button are you using?

A form control one that when its click unhide some rows and the second click hide the same rows. I want that caption of the button to change also.

 

[Fluff]

How about

Sub Vladf()
   With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters
      If .Caption = "Hide" Then
         'do something
         .Caption = "Unhide"
      Else
         'do something else
         .Caption = "Hide"
      End If
   End With
End Sub

 

[Vladf22]

How about

Sub Vladf()
   With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters
      If .Caption = "Hide" Then
         'do something
         .Caption = "Unhide"
      Else
         'do something else
         .Caption = "Hide"
      End If
   End With
End Sub

Hi,
I adjusted your code with my code and it worked. thank you very much

 

[Fluff]

You're welcome & thanks for the feedback