Converting an entire worksheet to caps

Posted by Evline on July 12, 2001 1:52 PM

Hi - I have several worksheets of 40,000+ lines that are currently in proper case. I need to somehow convert these to all caps for export to a database.

I have found how to do this cell by cell, but that isn't going to cut it. Any ideas on how to do this relatively quickly and painlessly?

Thanks.

Posted by Mark W. on July 12, 2001 2:10 PM

Take a look at ASAP Utilites' freeware at...

www.asap-utilities.com

Posted by gregc on July 12, 2001 2:15 PM

TRY THIS

application.screenupdating = false
for i = 1 to selection.count

activecell = ucase(activecell)
activecell.offset(1,0).select
next i
if len(activecell) = 0 then
exit sub
end if

This only works one column at a time and will stop on blank cells. Select an entire column and run the macro. If you know the longest column you can change "selection.count" to a number and remove the if statement and it won't stop on blank cells.

Posted by Evline on July 16, 2001 12:15 PM

Excellent. This worked.. thank! :)