Solved: CHANGE FROM ALL UPPER CASE

[GaryB]

Hi,

I have a database that is to be used for a mailing list and it is all in uppercase. I need to do a global change to Upper and lower case. Anyone have an idea on how I can do this.

Thanks

Gary

[Bob Phillips]

For Eachcell In Activesheet.UsedRange
cell.Value = UCase(cell.Value)
Next cell

[Norie]

Gary

You don't actually say how you want to change the case but I think you might want to take a look at StrConv with the vbProperCase argument.

[GaryB]

My aplologies, I wasn't clear enough. I do want to change Proper Case but don't know enough VB to do it myself. I have a list of 800 names and address that are all capitalized and I need to change it to just the first letter of the word capitalized. I do have a way of doing this by importing it into Indesign as a comma, text delimited file, making the change there and importing it back into Excel. Which I have done. I was looking for a way to do it in Excel and eliminate about 4 steps to the process.

Thanks,

Gary

[RonMcK]

Gary,

Combining XID's and Norie's suggestions gives

For Eachcell In Activesheet.UsedRange
cell.Value = StrConv(cell.Value, 2) ' where 3 = vbProperCase
Next cell

Works very nicely on my very small sample. Areas that may be problems: hyphenated names (StrConv doesn't see "-" as a word separator) and Canadian and UK postal codes (mixed alphanumerics).

Cheers!:thumb

[RonMcK]

Gary,

Combining XID's and Norie's suggestions gives

For Eachcell In Activesheet.UsedRange
cell.Value = StrConv(cell.Value, 2) ' where 3 = vbProperCase
Next cell
Works very nicely on my very small sample. Areas that may be problems: hyphenated names (StrConv doesn't see "-" as a word separator) and Canadian and UK postal codes (mixed alphanumerics).

Cheers!:thumb

Darn typo. That should be
StrConv(cell.Value, 3)

[GaryB]

Darn typo. That should be
StrConv(cell.Value, 3)

When I created a macro and put this code into it I get a compile error
syntax error
This is what I did for the macro.
Sub UPPERCASE()
For Eachcell In Activesheet.UsedRange
cell.Value = StrConv(cell.Value, 2) ' where 3 = vbProperCase
Next cell
End Sub

Thanks

Gary

[Bob Phillips]

Sub UPPERCASE()
For Each cell In Activesheet.UsedRange
cell.Value = StrConv(cell.Value, 3) ' where 3 = vbProperCase
Next cell
End Sub

[GaryB]

Thanks Everyone,

The last entry by El Xid did it. Worked like a charm.

Gary

[Bob Phillips]

That wasn't by me, I just spotted the missing space.

[GaryB]

That wasn't by me, I just spotted the missing space.

Sorry,
Didn't mean to take anything away from Ron. I was refering to the fix in the code you spotted. Any Way,

Thanks again to everyone.

Gary