How to change cases from small to capital in all cells?

G

Guest

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.
 
G

Guest

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:
 
G

Guest

Thanks for your solution. It helped me a lot. As its extension:
Is it possible to extend this Macro to do the same job for different files
(let say 14 files) inside one folder? All files have only one sheet.
If it is not possible, I can condensate all files into single file with 14
sheets. Then would it be possible to amend that Macro to perform the job for
14 sheets inside single file?
Thanks in Advance
 
G

Gord Dibben

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top