Private Sub CommandButton1_Click()
Sheets(1).OLEObjects.Add("Equation.3").Name = "new"
With Sheets(1).OLEObjects("new")
.Left = 10 'size and position
.Top = 10
.Width = 50
.Height = 50
.Activate 'activate OLE objekt End With
Sheets(1).[a1].Activate End Sub