Easiest way to CAPITALIZE entire worksheet ?

[Nugget]

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

Any help will be greatly appreciated.

Lar

[jetted]

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

[Jim Cone]

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" <[email protected]>
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

[Gord Dibben]

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
<[email protected]> 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