Coverting to all caps

One cell or the whole sheet?

Try this for all cells.

Right click the worksheet tab and select View Code.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

However, this has the limitation that it will only work if the user is changing a single cell. If the user tries to change more than one cell at a time(e.g. paste into 10 cells) then the code will crash.

For a single cell, say A5, then use this.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$5" Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

Hope it helps,
Dax.

Thank you! I got it to work perfectly!
Jeff