Forcing all caps in a column

[Dr. Indera]

hello,

i'd like to know if there is a way to force specific text cells to be all
caps, regardless of what is entered.

thank you
indera

 

[Frank Kabel]

Hi
that is only possible using VBA. Try the following (works for column A)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub
On Error GoTo CleanUp:
With Target
if .value<>"" then
Application.EnableEvents = False
.Value = UCase(.value)
end if
End With
CleanUp:
Application.EnableEvents = True
End Sub

 

[Zygoid]

could this same formula be used to make the column proper bu changin
UCase to proper

 

[Frank Kabel]

Hi
yes. change the line
..Value = UCase(.value)
to
..Value = application.worksheetfunction.proper(.value)