Ich benötige eine einfache If-Afrage für Tabellenblatt - Shapes.
Es soll abgefragt werden, ob ein Shape ausgewählt/angeklickt worden ist.
Etwa so
If ActiveSheet.Shapes("Rectangle 1").Select = True Then '?
Application.CommandBars("Skizze").Visible = True
Else
...
End If
Das Shape soll nicht einem Makro zugewiesen werden.
Vielen Dank im voraus.
Gruß Volker