Upper-case all text in Excel 2003 spreadsheet

[Chris Hankin]

Hello,

Could someone please advise on how I can make Excel 2003 automatically
change all text to upper-case in my spreadsheet named "Register".

Any help would be greatly appreciated.

Thanks,

Chris.

Live Long and Prosper

*** Sent via Developersdex http://www.developersdex.com ***

 

[Mike Fogleman]

The simplest way is to select all cells and change to an ALL CAPS FONT like
Academy or Lithograph. Another method that may work for you is to copy/paste
the area into Word, change case to UPPER and copy/paste back to Excel. Excel
does not have this feature, so it can not do it for you.

Mike F

 

[Chip Pearson]

To change existing text to upper case, use the following
procedure:


Sub AAA()
Dim Rng As Range
Application.EnableEvents = False
For Each Rng In ActiveSheet.UsedRange.SpecialCells _
(xlCellTypeConstants, xlTextValues)
Rng.Value = UCase(Rng.Text)
Next Rng
Application.EnableEvents = True
End Sub

To automatically convert data entry to upper case, use the
following event procedure in the Sheet's code module (right-click
the tab and choose View Code).

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula = True Then
Exit Sub
End If
If Target.Cells.Count > 1 Then
Exit Sub
End If
Application.EnableEvents = False
Target.Value = UCase(Target.Text)
Application.EnableEvents = True
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Chris Hankin]

Thanks so much Mike Fogleman and Chip Pearson for your help - very much
appreciated. I ended up using Chip's code and it worked very well.

Cheers,

Chris.

Live Long and Prosper

*** Sent via Developersdex http://www.developersdex.com ***