When I select text, the FORMAT menu & EFFECTS block does not provide an
uppercase option.

Any help will be greatly appreciated.

Lar

Hi

This code should capitalize everything

Sub capitalize_cell()

Dim Cell As Range
Dim R As Range
Set R = ActiveSheet.UsedRange
'SearchChar = "#"
For Each Cell In R
valeur = Cell.Value
valeur = UCase(valeur)
Cell = valeur

Next
End Sub


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=558484

The free Excel add-in "Excel Extras" will do that.
It adds options for upper, lower, sentence and proper case to the Format menu.
Does other stuff too. Download from http://www.realezsites.com/bus/primitivesoftware
--
Jim Cone
San Francisco, USA


"Nugget"
wrote in message
When I select text, the FORMAT menu & EFFECTS block does not provide an
uppercase option.

Any help will be greatly appreciated.

Lar

Just be warned about this macro.

If there are any formulas in the used range, they will all be turned to values.

Amend to.........

Sub capitalize_cell()

Dim Cell As Range
Dim R As Range
Set R = ActiveSheet.UsedRange
For Each Cell In R
Cell.Formula = UCase(Cell.Formula)
Next
End Sub


Gord Dibben MS Excel MVP

On Wed, 5 Jul 2006 10:43:36 -0500, jetted
wrote:


Hi

This code should capitalize everything

Sub capitalize_cell()

Dim Cell As Range
Dim R As Range
Set R = ActiveSheet.UsedRange
'SearchChar = "#"
For Each Cell In R
valeur = Cell.Value
valeur = UCase(valeur)
Cell = valeur

Next
End Sub