If only one of 2 letters is lower case, and you want the lower case letter
made upper case, then just make both letters upper case. HTH Otto
For Each Cell In Range("A:A")
If Cell < "" Then Cell.Value = UCase(Cell.Value)
Next Cell

"ALoecher" wrote in message
...
I am working with a very large sheet that lists addresses. However the
state
code is listed with one upper and one lowercase letter. I want to design a
macro to replace only the last letter with its uppercase equivelant.

eg

Santa Ana Ca
to
Santa Ana CA