Hintergrund ist: Ich habe vor zwei Monaten etwas programmiert. es sind sehr viele sehr ähnliche Prozesse und ich weiss leider nicht mehr genau, welches Makro genau welcher Schaltfläche zugeordnet ist ((eilig und schlecht beschriftet...)
dim shpe as Shape
for each shpe in ActiveSheet.Shapes
debug.print shpe.Name, shpe.OnAction
Next
Gruß DanielPrivate Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
MsgBox "MakroXy"
End Sub