Change Lowercase or Proper to ALL CAPS

[Don]

How do I change all lowercase or Proper formatted cells to ALL CAPS?

Don

 

[Tom Ogilvy]

Dim cell as Range
for each cell in selection.SpecialCells(xlConstants,xlTextValues)
cell.Value = Ucase(cell.value)
Next

would be the basic approach.

 

[Don]

Thanks Tom........and if needing to change it to "Proper"?

Don

 

[Chip Pearson]

Don,

Try

cell.Value = StrConv(cell.Value, vbProperCase)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com
(email address is on the web site)