Dim cell as Range
for each cell in selection.SpecialCells(xlConstants,xlTextValues)
cell.Value = Ucase(cell.value)
Next

would be the basic approach.

--
Regards,
Tom Ogilvy

"Don" wrote in message
...
How do I change all lowercase or Proper formatted cells to ALL CAPS?

Don