Rilton,

Bom Dia!

Não sei se entendi corretamente a sua necessidade... aqui (Windows 7 e Excel 2007) executei normalmente sem que tenha ocorrido nenhum tipo de erro. Veja abaixo duas telas após cada uma das execuções: com número e com nome:

Wagner, tente provocar um erro na celula N3... tipo, coloque a formula =h1/j1, daí o resultado vai ser #div/0! Feito isso vai aparecer a mensagem de erro.

Rilton,

Conforme disse, provoquei o erro e não deu erro!!!
Para que não dê " #div/0!" você tem que preencher as células H1 e J1
Inseri a fórmula e o resultado apareceu sem dar o tipo de erro que você mencionou.

Att,

para a formula não dar erro na macro coloque elas assim
=Seerro(Formula;"")

=Seerro(H1/J1;"")
ou
=SEERRO(H1/J1;"invalido")

Uai, o meu dá erro!!

Veja em anexo minha tela de erro!!

Rilton,

Você está preenchendo as células "H1 e J1" para não dar o erro?

Att

como falei , use =SEERRO( na formula

text = Format(Var_troca_valor, "R$ #,##0.00")
pelo que reparei nos testes format não aceita mensagens de erro

Esse erro é proposital... ou seja estou fazendo dar erro. o que estou querendo fazer é tratar esse erro dentro do vba.

Esse erro é proposital... ou seja estou fazendo dar erro. o que estou querendo fazer é tratar esse erro dentro do vba.

Se entendi o erro existirá e para evitar as mensagens de : "erro de tipos incompatíveis de dados" e "varialvel do bloco with não definida erro em tempo de execução 91" você quer tratar na rotina, se for isto acrescente : On Error Resume Next, ficando assim :

Public Sub teste()

    On Error Resume Next
    Var_troca_valor = Format(Sheets("Plan1").Range("N3").Value, "R$ #,##0.00")
    
    Ribo_nome.InvalidateControl ("UmaAspirinina")
    
End Sub

Só tome cuidado com o uso excessivo deste tratamento, pois o mesmo inibirá outros erros podendo levar a resultados inesperados.

Aqui poderá ler um pouco sobre tratamento de erros :
Tratamento de Exceção
http://www.ambienteoffice.com.br/office ... e_excecao/

[]s

Perfeito Mauro Coutinho.. era isso mesmo!!