Easiest way to CAPITALIZE entire worksheet ?

N

Nugget

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

Any help will be greatly appreciated.

Lar
 
J

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 Su
 
J

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
 
G

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
 
Top