I am using a VBA code which I found online to make all words in my workbook to have the first letter capitalize only.
However I have on the entire column which has a defined name "Title" as this column I do not want to cap the first letter of every word in any sales of the defined column.
In the code I would like to skip to the next column and continue from there.
Any ideas how this can be done?
Here is the code which I am using to cap first letter in each word of each cell of the workbook.
Sub ConvertToProper()
Dim ws As Object
Dim LCell As Range
'Turn off screen updating to increase performance
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Move through each sheet in your spreadsheet
For Each ws In ActiveWorkbook.Sheets
On Error Resume Next
ws.Activate
'Convert all constants and text values to proper case
For Each LCell In Cells.SpecialCells(xlConstants, xlTextValues)
LCell.Formula = StrConv(LCell.Formula, vbProperCase)
Next
Next ws
'Turn screen updating back on
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Thank for your help.
Bookmarks