Change Lowercase or Proper to ALL CAPS
 

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

Don

Change Lowercase or Proper to ALL CAPS
 

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

would be the basic approach.

--
Regards,
Tom Ogilvy

"Don" wrote in message
...
How do I change all lowercase or Proper formatted cells to ALL CAPS?

Don

Change Lowercase or Proper to ALL CAPS
 

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

Don
"Tom Ogilvy" wrote in message
...
Dim cell as Range
for each cell in selection.SpecialCells(xlConstants,xlTextValues)
cell.Value = Ucase(cell.value)
Next

would be the basic approach.

--
Regards,
Tom Ogilvy

"Don" wrote in message
...
How do I change all lowercase or Proper formatted cells to ALL CAPS?

Don

Change Lowercase or Proper to ALL CAPS
 

Don,

Try

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


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

"Don" wrote in message
...
Thanks Tom........and if needing to change it to "Proper"?

Don
"Tom Ogilvy" wrote in message
...
Dim cell as Range
for each cell in selection.SpecialCells(xlConstants,xlTextValues)
cell.Value = Ucase(cell.value)
Next

would be the basic approach.

--
Regards,
Tom Ogilvy

"Don" wrote in message
...
How do I change all lowercase or Proper formatted cells to ALL CAPS?

Don