Skip to main content

Posts

Showing posts with the label simple macro that display assigned macros for each Button

simple macro that display assigned macros for each Button

 run the following simple macro that display assigned macros for each Button:  Sub ButtonOnAction() Dim shp As Shape Dim i As Integer For Each shp In ActiveSheet.Shapes ' Type 8=Button, 13=Picture, 4=Comment, ... '-- i = 1 If shp.Type = 8 Then ' 8 = Button Application.Goto Reference:=shp.TopLeftCell, Scroll:=True shp.Select MsgBox i & ". Button '" & shp.Name & "' - Macro: '" & shp.OnAction & "'" i = i End If Next shp End Sub