AlexanderS

Hola @AlexanderS,

Estoy haciendo una aplicación y utilice tu Procedimiento que pongo más abajo, lo que resulta es que en un libro nuevo si genera el Botón y el código en la hoja y en mi proyecto solo genera el Botón y el código en la hoja NO.  Sabras algo de incompatibilidad. Los libros están habilitados para macros.

Private Sub Insert_Boton()
Dim hoja As Object
Dim m As Double
Dim bt As Range
Dim cTexto As String
On Error Resume Next
Set bt = Application.InputBox(Prompt:="Selecciona donde se creara el botón para llamar el formulario", Title:="By Riddle", Type:=8)

Set hoja = ThisWorkbook.VBProject.VBComponents(bt.Parent.Name)
    With Sheets(bt.Parent.Name).OLEObjects.Add(classtype:="Forms.CommandButton.1", _
         Top:=bt.Top, Left:=bt.Left, _
         Height:=bt.Height * 2, Width:=bt.Width * 2)
         .Object.Caption = "Formulario"
         .Name = "boton" & "Leopoldo"
     End With
   
     With hoja.CodeModule
     cTexto = "Private Sub boton" & "Leopoldo" & "_Click()" & vbNewLine
     cTexto = cTexto & "    MsgBox """ & " Hola """ & vbNewLine
     cTexto = cTexto & "End Sub"
     .InsertLines .CountOfLines + 1, cTexto
     End With
 
End Sub

Saludos.

NOTA: Lo que me queda hacer es pasar mis modulos  a un nuevo libro y veo si resulta, gracias.