Guru do Excel e Power BI

Rafaslemos escreveu:Bom Dia!

Estou com problema ao executar a Macro que criei após atribuir a Macro em uma imagem.

Quando executo pelo VBA a Macro funciona, mas quando tento executar pela planilha gera um erro "O objeto é obrigatório". Abaixo está a Macro que editei, não sei onde é que está faltando esse objeto.


Private Sub BotaoCancelar_Click()
Unload Me
End Sub

Private Sub BotaoInserir_Click()
InserirComentario
End Sub


Private Sub UserForm_Initialize()
PovoarMesAno
End Sub

Private Sub PovoarMesAno()
Cbomesano.AddItem ("jan/2015")
Cbomesano.AddItem ("fev/2015")
Cbomesano.AddItem ("mar/2015")
Cbomesano.AddItem ("abril/2015")
Cbomesano.AddItem ("maio/2015")
Cbomesano.AddItem ("jun/2015")
Cbomesano.AddItem ("jul/2015")
Cbomesano.AddItem ("ago/2015")
Cbomesano.AddItem ("set/2015")
Cbomesano.AddItem ("out/2015")
Cbomesano.AddItem ("nov/2015")
Cbomesano.AddItem ("dez/2015")
End Sub

Private Sub InserirComentario()


y = Cbomesano.ListIndex + 2
x = Plan28.Range("AE3") + 2

Sheets("Analises").Select
ActiveSheet.Cells(x, y).Select
Selection.FormulaR1C1 = TxtComentario

If TxtComentario = "" Then
MsgBox "Favor preencher comentário", vbInformation
Exit Sub
TxtComentario.SetFocus
End If
MsgBox "Análise Realizada com Sucesso", vbInformation
Unload Me
End Sub

Desde já agradeço a ajuda.