CoDer

Event code................

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column 8 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub

As written, operates on Columns A:H as you enter text in a cell.

Change the 8 to whatever you wish.

This is event code and must go into the sheet module.

Right-click on the sheet tab and "View Code". Copy and paste the above into
that module.


Gord Dibben MS Excel MVP

On Tue, 8 Aug 2006 21:04:18 -0700, "CoDer" <not available wrote:

I need to format a column so that all cell force any text entry to
uppercase. I've looked into the UPPER() function, but that is something that
would actually take the value from some otther location and display it in
uppercase where the fuction is located, which will not work.

What I'm looking for is something similar to Format-Cells-Numbers, which
allows you to define a format for numbers, so that however a number is
entered in the cell it automatically displays it in the desired format. So
I'd like to be able to have the data entry be in upper or lower case, but
the cell automatically displays it in uppercase. Can that be done?