Visual Basic para Aplicaciones - Introducir codigo desde codigo

Option Explicit

Sub s()

Dim HojaNueva As Worksheet

Dim Boton As OLEObject

Dim sCode$

Set HojaNueva = Worksheets.Add

If HojaNueva Is Nothing Then Exit Sub

Randomize

HojaNueva.Name = "Nueva Hoja" & Int((9 * Rnd) + 1) & Int((9 * Rnd) + 1) & Int((9 * Rnd) + 1)

Set Boton = HojaNueva.OLEObjects.Add("Forms.CommandButton.1")

If Boton Is Nothing Then GoTo fin

With HojaNueva.OLEObjects("CommandButton1")

     .Object.Caption = "Click here!"

     .Left = 10

     .Top = 10

End With

sCode = "Private Sub CommandButton1_Click()" & vbCrLf

sCode = sCode & "MsgBox ""Hello world!""" & vbCrLf

sCode = sCode & "End Sub"

With ActiveWorkbook.VBProject.VBComponents(HojaNueva.CodeName).CodeModule

 .AddFromString sCode

End With

fin:

Set HojaNueva = Nothing

Set Boton = Nothing

End Sub