MrExcel Publishing
Your One Stop for Excel Tips & Solutions


Posted by Rob on May 02, 2001 3:28 PM

punny title eh? :)
anyway, I was wondering if there is a way to get a page of excel to change everything to caps. I know you can do it with each cell, but what if I already have a page made up, that I would like to convert to all caps? I know theres a way to do it, because I had a test version of an add-in that did it :) just wondering if theres a way to do it without the add-in.

Any help is again appreciated.


Posted by Kevin James on May 02, 2001 7:08 PM

Have you tried picking a font that only displays CAPS?

Posted by Dave Hawley on May 02, 2001 11:42 PM

Hi Rob

Right click on the Sheet name tab and select "View Code", paste in this code:

Private Sub Worksheet_Change(ByVal Target As Range)
'written by OzGrid Business Applications

'Converts all text to UpperCase
On Error Resume Next
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

Push Al+Q to retun to Excel and Save.


OzGrid Business Applications