Right click the sheet tabView code and paste the below code which will work
on Col A

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Count = 1 Then Target = UCase(Target.Text)
End If
Application.EnableEvents = True
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Doug" wrote:

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