One possible problem with your method... if the one or more cells in the
selection have formulas in them, and if those formulas have quoted text in
them, then the quoted text will all be converted to upper case as well. I
think the idea you posted to Sam may be the way to go here...

Sub Marine()
Dim C As Range
For Each C In Selection
If Not C.HasFormula Then C.Value = UCase(C.Value)
Next
End Sub

--
Rick (MVP - Excel)


"Mike H" wrote in message
...
Hi,

Attach this to a button

Sub Marine()
For Each c In Selection
c.Formula = UCase(c.Formula)
Next
End Sub

Mike

"Phil H" wrote:

I need a macro, which will be attached to a button, to change text to
upper
case for any range of selected cells. Can someone help?