If the formula returns a lower case text string then this won't work. If you
try to insert =Upper(<old formula) in the macro you convert numbers to
text...

=IF(ISNUMBER(<old formula),VALUE(<old formula),UPPER(<old formula))

could work though, but it's an ugly solution.

I think the only solution is to use a font like Felix Titling.


"Rick Rothstein" wrote:

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?