Office: Form mit Makro automatisch mit Farbe füllen

Hallo, habe folgendes Problem...
Ich habe eine Form, z.B. "Oval 47". Diese möchte ich durch Anklicken blau füllen. Durch nochmaliges Anklicken soll die Form dann wieder weiß werden.

Habe es mit der if-Funktion versucht, hat aber leider nicht geklappt...
Wie kann ich so etwas in VBA erstellen?

Vielen Dank schon mal!

 

Hi,

Code:

Sub FarbeAendern()
   With ActiveSheet.Shapes(Application.Caller).Fill
      If .ForeColor.RGB = RGB(0, 112, 192) Then
         .Visible = msoFalse
      Else
         .Visible = msoTrue
         .ForeColor.RGB = RGB(0, 112, 192)
         .Transparency = 0
         .Solid
      End If
   End With
End Sub

Bis später,
Karin

 

Vielen Dank!
Leider funktioniert das Ganze nur einmal.
Wenn ich immer wieder daraufklicke ändert sich die Farbe nicht mehr...wie krieg ich das hin?