The following will work for a single cell at a time

Private Sub Worksheet_Change(ByVal Target As Range)
a = Target.AddressLocal
Target.Value = UCase(Target.Value)

End Sub
-----Original Message-----
I need your help with code for changing the text within a
cell to all
caps. I want to attach the code to the sub "worksheet
change" event to
enable the code. For example: If someone types a lower
case value into
a cell it will automatically change to uppercase.

Thank you
.