Pass multiple variables to .OnAction with Excel VBA

Question

I want to add .onAction with three variables to a button on an Excel sheet.

I followed Excel, VBA: How to pass multiple variables to .OnAction to pass multiple variables.

When I click the button, it is throwing an error

"Cannot Run the Macro "Deck v.1'!'Stop_SAP "10.x.x.x", sidadm, " ". The macro may not be available in this workbook or all macros has been disabled.

If I don't pass any variables it is working.

.OnAction = "Stop_SAP"

With btn1
    .TextFrame.Characters.Font.Size = 8
    .TextFrame.Characters.Caption = "Stop SAP"
    .OnAction = "'Stop_SAP """ & hstname & """ ,""" & usrname & """,""" & pass & """'"
    .Line.visible = False
End With

Is the procedure you are calling in a regular module? - Or did you put it into a WB/WS-module. If so put it into a regular module — Lord-JulianXLII
– Lord-JulianXLII, Commented Jun 3, 2023 at 18:07

Mayukh Bhattacharya · Accepted Answer · 2023-06-05 05:25:37Z

1

The problem was with existing shapes. Just delete all shapes on the exit using

Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes
 Shp.Delete
Next Shp

edited Jun 5, 2023 at 5:25

Mayukh Bhattacharya

29.2k9 gold badges31 silver badges46 bronze badges

answered Jun 3, 2023 at 18:35

tanar

313 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Pass multiple variables to .OnAction with Excel VBA

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related