Cleans up every selected cell: with Proper function
Sub FixTextInAllCells() Dim Cell For Each Cell In Selection Cell.Value = Application.WorksheetFunction.Proper(Cell.Value) Next End Sub