Excel Caps

BullseyeThor

Board Regular
Joined
Dec 23, 2010
Messages
84
Office Version
  1. 365
Hi All

I have an Excel sheet with a lot of information on it, however the information is in capitol letters and I don't want it to be. Is there a way that I can make the document auto change all of the caps to lower except the first letter of each word??

Thanks
 

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.
Try running this:
Code:
Sub ProperCase()
    Dim rngCell As Range
    Application.ScreenUpdating = False
    For Each rngCell In ActiveSheet.SpecialCells(xlCellTypeConstants)
      rngCell.Value2 = StrConv(rngCell.Value2, vbProperCase)
   Next rngCell
   Application.ScreenUpdating = False
   
End Sub
 
Upvote 0
Try:-
Code:
With ActiveSheet
    .UsedRange = Application.Proper(.UsedRange)
End With
Mick
 
Upvote 0
The information I have is huge from A1 to C54379

I have inserted the code but I get runtime error 91 or it just doesn't work. Should I be changing anything in the code to make it work?
 
Upvote 0
You may have too much for specialcells, so let's try brute force:
Code:
Sub ProperCase()
    Dim rngcell As Range
    Application.ScreenUpdating = False
    For Each rngcell In ActiveSheet.UsedRange
      If Not rngcell.HasFormula And Len(rngcell.Value2) > 0 Then
         rngcell.Value2 = StrConv(rngcell.Value2, vbProperCase)
      End If
   Next rngcell
   Application.ScreenUpdating = False
   
End Sub
 
Upvote 0
Try this, it worked for me:-
Code:
[COLOR="Navy"]Sub[/COLOR] MG18May33
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Ray
[COLOR="Navy"]Set[/COLOR] Rng = Range("A1:C65000")
 Ray = Rng.value
  Ray = Application.Proper(Ray)
   Rng = Ray
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0

Forum statistics

Threads
1,224,502
Messages
6,179,126
Members
452,890
Latest member
Nikhil Ramesh

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top