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?
>
|