All caps would look horrible to me and make things hard to read but....
This event code will do the trick.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column > 8 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub
Works on columns A:H........change the >8 to whatever you wish.
Thanks Gord; the all caps is for a specific input cell, the thing described
is done with caps. Thanks for the problem solve, I really did not think it
could be done.