Boa noite,
Veja se este código atende:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Value = LCase(Target.Value)
End Sub
O código dever ser inserido no evento Change da planilha (botão direito no nome da planilha, selecione "Exibir Código").
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 21/01/2017 10:14 pm