EMilitão,

Boa tarde!

Que label??? Não vi nenhum nesse código!

Boa tarde, EMilitão

Alguns problemas:

1) Não deve ser um Label que vc tem em seu Userform, mas sim uma TextBox, não é mesmo? Label não tem a propriedade Text, e sim Caption
2) Também controles tipo MonthView não têm propriedade Date, mas sim Value (ao menos esse que tenho instalado aqui é assim)
3) O fluxo do seu código está um tanto insólito... não consegui captar sua intenção: primeiro vc coloca o valor da TextBox (que não se sabe qual é ainda) na célula, mas o Userform onde está a TextBox é aberto só depois disso
Depois vc coloca o valor do MonthView nessa mesma TextBox... mas em que momento vc escolheu uma data no MonthView
E logo em seguida descarrega o Userform...

Caso sua intenção seja escolher uma data num MonthView num UserForm e fazer essa data aparecer numa TextBox do UserForm, o caminho seria pela exploração do evento DateClick do MonthView. Mais ou menos assim:

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
  Me.txtData.Text = DateClicked  ' ou também = MonthView1.Value
End Sub

Bom dia, EdsonBR!

Desculpe-me pela minha ignorância, é uma textbox mesmo. O que eu quero fazer:
Preencher a textbox com a data selecionada no calendário pop up e está preencher a célula "e2" da plan cálculo.
No monthview.date foi só uma tentativa, eu havia tentado com o value mas não funcionou. Da forma (W.range("e2").value = me. txtData.text) funciona eu digitando a data dentro da textbox, porém quero incrementar o botão que chame o pop up e daí selecionar a data e esta preencher a textbox.

Espero ter esclarecido.

EMilitão,

Boa tarde!

Segue um pequeno exemplo utilizando o objeto DTPicker ao invés do objeto monthview.

Veja se é assim.