And be prepared to have all your formulas change to values.

Use this modified version which will not affect formulas.

Sub chtocaps()
For Each cell In ActiveSheet.UsedRange
cell.Formula = UCase(cell.Formula)
Next cell
End Sub


Gord Dibben MS Excel MVP

On Mon, 18 Sep 2006 01:17:01 -0700, Stefi
wrote:

Try this macro:
Sub chtocaps()
For Each cell In ActiveSheet.UsedRange
cell.Value = UCase(cell.Value)
Next cell
End Sub

Regards,
Stefi


„Khoshravan” ezt írta:

I have to change the case of all characters from small to Capital in all
cells of an excel file (Excel 2003 and lower).
MS Word has a command called: Change case, which changes the case of
selected letters from Capital to small and vise versa. Is there any
equivalent of this command in Excel? I couldn’t find it. If there is not,
what is the fastest way to change all letters from small to Capital in Excel?
If there is any Macro or VBA solution, please let me know.
One way might be to Copy/paste to word, do the change and return.


--
Rasoul Khoshravan Azar
Kobe University, Kobe, Japan