One way is to use event code on that column.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Range("A:A"), Target) Is Nothing Then
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
End If
ErrHandler:
Application.EnableEvents = True
End Sub

This is event code. Right-click on the sheet tab and "View Code"

Copy/paste the code into that sheet module.

As you enter text in column A it will change to upper case.


Gord Dibben MS Excel MVP

On Tue, 20 Feb 2007 12:04:25 -0800, Cyberwolf
wrote:

Is it possible to lock a column so that it only displays and prints in
uppercase?