The Pocket Moleskine

Here’s a macro:

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