Change

If Target.Address = "$H$1" Then

to the cells you want, for example

If Not Intersect(Target, Range("H1,M5,O11,F7")) Is Nothing Then


--
HTH

Bob Phillips

"John Data" wrote in message
...
Thanks Bob Phillips

This works fine on 1 cell, however there are another 3 individual cells
that should show only uppercase. I have tried pasting the code again with
different cell values but I get a compile error.
Is there a way to do this?

"John Davies" wrote:

HOW CAN I MAKE A SINGLE CELL IN EXCEL DISPLAY UPPERCASE ONLY