Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to i capitalize all words in an existing worksheet?
I have a worksheet that contains approximately 2500 names. At this time all
names in in lowercase. I need to get them all into UPPERCASE. I know there's got to be an easier way to do that rather then retyping each name. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to i capitalize all words in an existing worksheet?
It depends how the names are arranged with in the worksheet but for a column
of names (for example) this would work Sub caps() Dim myRange As Range Set myRange = Range("A1:A1000") ' Change to suit For Each c In myRange c.Value = UCase(c.Value) Next End Sub right click the sheet tab, view code and paste it in. Mike "MegaGrl" wrote: I have a worksheet that contains approximately 2500 names. At this time all names in in lowercase. I need to get them all into UPPERCASE. I know there's got to be an easier way to do that rather then retyping each name. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to i capitalize all words in an existing worksheet?
Going by your post title, I'm assuming that you want EVERY word in the
worksheet converted to uppercase, correct? If so, you can edit Mike's code to handle the used range within the worksheet. Sub caps() Dim c As Range For Each c In ActiveSheet.UsedRange c.Value = UCase(c.Value) Next End Sub MegaGrl wrote: I have a worksheet that contains approximately 2500 names. At this time all names in in lowercase. I need to get them all into UPPERCASE. I know there's got to be an easier way to do that rather then retyping each name. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to i capitalize all words in an existing worksheet?
I'll add my usual caveat about the posted macro.
It will wipe out any formulas in the used range and change them to values. If any chance of formulas in the usedrange this revision will ignore them. Sub caps() Dim c As Range For Each c In ActiveSheet.UsedRange If Not c.HasFormula Then c.Value = UCase(c.Value) End If Next End Sub Gord Dibben MS Excel MVP On Tue, 25 Sep 2007 05:31:05 -0700, JW wrote: Going by your post title, I'm assuming that you want EVERY word in the worksheet converted to uppercase, correct? If so, you can edit Mike's code to handle the used range within the worksheet. Sub caps() Dim c As Range For Each c In ActiveSheet.UsedRange c.Value = UCase(c.Value) Next End Sub MegaGrl wrote: I have a worksheet that contains approximately 2500 names. At this time all names in in lowercase. I need to get them all into UPPERCASE. I know there's got to be an easier way to do that rather then retyping each name. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I Capitalize all the font on a worksheet? | Excel Discussion (Misc queries) | |||
Easiest way to CAPITALIZE entire worksheet ? | Excel Discussion (Misc queries) | |||
How do I conditionally build worksheet from existing worksheet? | Excel Discussion (Misc queries) | |||
Creating a Microsoft Words document from an existing Excel spreads | New Users to Excel | |||
Creating new worksheet from existing | Excel Discussion (Misc queries) |