Change entire column from upper to proper

  • Thread starter Thread starter Bob
  • Start date Start date
B

Bob

I know how to do a single entry in a column, but is it
possible to do an entire column at one time?
 
Put the value in A1, press ctrl + shift & down arrow, press ctrl + d
to fill row do the same but instead of down arrow use right arrow and ctrl +
r
 
Bob,

In a blank column next to your data, enter =PROPER(A1) where A1 is the first
cell of your data, and copy this down as far as you need to go. Then, copy
these cells and do a Paste Special / Values over the original data. Finally,
delete the column with the formulas.
 
Hers's a macro..

Sub ToProper()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
If c.HasFormula = False Then
c.Value = StrConv(c.Value, vbProperCase)
End If
Next c
Application.ScreenUpdating = True
End Sub


Dennis
========
 
Back
Top