Se não quer usar funções nem macros o ideal seria a solução indicada pelo Patropi. Mas se vc tem ferramentas para faciltar o ideal seria aplicá-las. Segue uma macro.
Sub Converter()
Dim rgConverter As Range
Dim wf As WorksheetFunction
Dim Intervalo As Range
On Error Resume Next
'Informar o intervalo cujos valores serão analiados
Set Intervalo = Application.InputBox(Prompt:="Informe o intervalo", Title:="Converter", Type:=8)
'Tratamento de erro
If Err.Number <> 0 Then Exit Sub
Set wf = Application.WorksheetFunction
Set rgConverter = Intervalo
For Each Célula In rgConverter
If wf.IsText(Célula) Then Célula.Value = UCase(Célula.Value)
Next Célula
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 21/04/2012 2:39 pm