Hide / unhide med samme knap

Hej.

Jeg har en macro der skjuler et billede.
Er det muligt at kombinere sådan at sammen knap skjuler eller viser alt efter om den er skjult eller vist?

Jeg bruger i dag to knapper og denne macro:

Sub Hide()
ActiveSheet.Shapes("Group 8").Visible = False
End Sub

Sub Show()
ActiveSheet.Shapes("Group 8").Visible = True
End Sub

På forhånd tak :)