Este fórum está sendo desativado

[Celsosilverio]

Olá!!
Tenho o seguinte código:

Private Sub TextBox1_Change()
TextBox1.Value = Plan31.Range("E4").Value
TextBox1.Value = Format(TextBox1.Value, "0.00%")
End Sub

Ocorre que esse código funcionava bem no Office Plus 2016, mas tive que formatar meu PC e agora está instalado o Office Plus 2021. Daí está dando a seguinte mensagem de erro: Erro em tempo de execução '28':
Espaço insuficiente para pilha.

Alguém poderia me dar um help?

[demabiath]

Boa tarde, @Celsosilverio !

Feito a analise e alguns testes do seu código, funcionou normalmente em um userform, minha maquina possui a mesma versão.
efetuei somente a troca de "Plan31" por WorkSheets(1)
Pois não sei você declarou a variável.
Caso precise de ajuda entre em contato.

[Celsosilverio]

Olha meu amigo demabiath, no meu Excel 2021 não apresentou mais o erro acima citado, porém, não está puxando os dados da célula no formulário. No Excel 2016 estava tubo blz.
Portanto, deixo o exemplo em anexo.

[demabiath]

Se sua finalidade é que o valor apareça quando o userform aparecer então você deve usar o Evento: Activate do UserForm
Estou enviando o arquivo resolvido
Se precisar de ajuda mais especifica entre em contato comigo pelo zap (31) 98696-0458

Private Sub UserForm_Activate()
TextBox1.Value = Worksheets(1).Range("E4").Value
TextBox1.Value = Format(TextBox1.Value, "0.0%")
End Sub

[Celsosilverio]

Ficou perfeito meu caro demabiath. Era isso mesmo que eu precisava. Grato