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

Don

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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> How do I change all lowercase or Proper formatted cells to ALL CAPS?
>
> Don
>

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

Don
"Tom Ogilvy" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> How do I change all lowercase or Proper formatted cells to ALL CAPS?
>>
>> Don
>>
>
>

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" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Thanks Tom........and if needing to change it to "Proper"?
>
> Don
> "Tom Ogilvy" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> 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" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>>> How do I change all lowercase or Proper formatted cells to ALL CAPS?
>>>
>>> Don
>>>
>>
>>
>
>