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

Copied to a sheet module.


Gord Dibben MS Excel MVP


On Sun, 28 Feb 2010 12:07:01 -0800, John Cutler
wrote:

A clarification: I know about the UPPER() function for calculations.
Instead, what I'm asking for here is how to format non-calculated cells to
force entered text to UPPER CASE.

Thanks.

"John Cutler" wrote:

Is it possible to pre-format a column of cells as "text" such that any
entered text will automatically be converted to UPPER CASE?

For example, entering lower "x" will be 'forced' by the formatting to
automatically appear as cap "X".

This would be comparable to database software that I use wherein I can
assign a "field input mask" to a data entry field that "forces" all text
entries to UPPER CASE.

Thanks,

John