Eu estou tentando obter um botão que eu criei dinamicamente em um formulário excel userform para executar uma macro chamadatransfer que eu escrevi emModule 1 da seção "Módulos" do meu projeto.

Abaixo eu colei o código que escrevi até agora na forma de usuário que realmente consegue criar oTransfer to Sheet botão no quadro (que eu também criei dinamicamente) mas por alguma razão, quando eu corro VBA eu recebo um438 error mensagem dizendo queObject doesn't support this property or method.

Alguém pode me dizer como posso resolver isso?

Aqui está o código:

<code>Dim framecontrol1 As Control

Set workitemframe = Controls.Add("Forms.Frame.1")
With workitemframe
    .Width = 400
    .Height = 400
    .Top = 160
    .Left = 2
    .ZOrder (1)
    .Visible = True
End With

workitemframe.Caption = "Test"
Set framecontrol1 = workitemframe.Controls.Add("Forms.commandbutton.1")

With framecontrol1
    .Width = 100
    .Top = 70
    .Left = 10
    .ZOrder (1)
    .Visible = True
    .Caption = "Transfer to Sheet"
End With
framecontrol1.OnAction = "transfer"
</code>