Change Upper Case to Proper Case

  • Thread starter Michael Koerner
  • Start date
M

Michael Koerner

Someone sent me a very large spreadsheet entirely in uppercase. Extremely hard to read. is there an easy way to change a range of cells from uppercase to proper case. Using Excel 2007
 
J

joshuafandango

Hi MK,

Change the range to suit:

Sub UpperToProper()
Dim Cell As Object
For Each Cell In Range("A1:E3")
Cell = Application.WorksheetFunction.Proper(Cell)
Next
End Sub

Cheers,
JF
 
C

cht13er

You could try this, too .. not confident it works for 2007, it uses
VBA convertion instead of Excel's ...:

(After you've selected a bunch of cells)

dim strCellText as string
For Each Cell In Selection
strCellText = Cell
strCellText = StrConv(strCellText, vbProperCase)
Next Cell

Chris
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top