Button

  • Thread starter Thread starter STEVEB
  • Start date Start date
Try this
It will run your sub mymacro

Sub test()
Dim WS As Worksheet
Dim Btn As OLEObject
Set WS = ThisWorkbook.Worksheets("Sheet1")
With WS
Set Btn = .OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Left:=.Range("C3").Left, Top:=.Range("C3").Top, _
Width:=100, Height:=30)
End With
Btn.Object.Caption = "Click Me"
Btn.Name = "TheButton"
With ThisWorkbook.VBProject.VBComponents(WS.CodeName).CodeModule
.InsertLines .CreateEventProc("Click", Btn.Name) + 1, _
"mymacro"
End With
End Sub

Sub mymacro()
MsgBox "Hi"
End Sub
 
with code or manually?

make the forms toolbar visible. Click on the button. Use the mouse to draw
a rectangle on the worksheet where you want it.

You should be prompted to assign a macro, select the existing macro.
 
Show the "Forms" toolbar. Choose the "Button" control and
draw it on your spreadsheet. Wizard will ask you what
macro to associate it with

Gavin
 
Back
Top