Right click sheet tabview codeinsert thischange column to suit needs.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub
Application.EnableEvents = file
Target.Value = UCase(Target)
Application.EnableEvents = True
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Doug" wrote in message
...
I have a column that I want it to always show caps when I type in text. How
can I set the formatting for this?

Thanks
--