Expert: Adelaide carvalho - 11/23/2004

Question
Is there a way to make text in Excel all caps without doing a formula in a different cell or retyping it?

Thanks for your help!

Answer
Hi Phyllis,
How are you?

Please do the following

1. tools - macro - visual basic editor
2. insert - module
3. copy
Sub ucases()
Dim a As Range
addr = InputBox("type the range address, eg, A1:B10")
Set a = Range(addr)
For i = 1 To a.Rows.Count
  For j = 1 To a.Columns.Count
       a.Cells(i, j) = UCase(a.Cells(i, j))
  Next j
Next i
End Sub
4. file - close and return to excel
5. tools - macro - macros
select ucases
press run

I hope this helps you.
Cheers
Adeloaide