Click Button through Code

[skull_eagle]

Hi,

I'm trying to click a button on Sheet1 through my code.

The below is not working.


Thank you

Dim ActiveShape As Shape
Dim i As Integer

i = Worksheets("Admin").Cells(2, 2).Value
          
ActiveShape = Worksheets("Sheet1").Shapes("CB_" & i)

Application.Run ActiveShape.OnAction

 

[John_w]

ActiveShape is declared as a Shape object, so you need the Set keyword for assignment:

Set ActiveShape = Worksheets("Sheet1").Shapes("CB_" & i)