utilizei este comando ai deu certo
Sub Converter()
For Each x In Selection
If Left(x.Formula, 1) <> "=" Then x.Value = LCase(x.Value)
Next
End Sub
Se a resposta foi últil, gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. canto superior.
" Aquele que habita no esconderijo do Altissimo, à sombra do Onipotente descansará. Salmos 91:1"
Atenciosamente.
Jason Romanha
Postado : 04/10/2017 7:58 am