Add this code to the worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range

Application.EnableEvents = False
For Each r In Target
r.Formula = UCase(r.Formula)
Next r
Application.EnableEvents = True
End Sub

(right-clcik the worksheet tab and select View Code to
bring up the VBA editor)

Cheers,
Dave
-----Original Message-----
IS THERE A WAY THAT A WORKSHEET CAN BE SETUP THAT WOULD
EITHER NOT ACCEPT LOWERCASE OR AUTOMATICALLY CHANGE IT TO
UPPERCASE
.