Sub FixTextInAllCells() Dim Cell For Each Cell In Selection Cell.Value = Application.WorksheetFunction.Proper(Cell.Value) Next End Sub