Previous post of Gord Dibbens, though for just one column you could change it to the following
(Change the A:A to whatever column you want):-
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub
You could turn on the Caps Lock.
There is no way to format cells to UPPER Case beforehand.
You could use a helper column after the fact as in....
=UPPER(A1) entered in B1. Drag/copy down.
OR a worksheet_event macro in the worksheet.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub
This code is from Chip Pearson's website at.........
http://www.cpearson.com/excel/case.htm
Gord Dibben Excel MVP - XL97 SR2 & XL2002
In Excel, is there a way to format the cell so that
contents are always capitalized? I know you can do it in
Access using > but I cannot figure it out in Excel!
Thanks!