Have you tried modifying the style?With ActiveWorkbook.Styles("Normal").Font.Name = "Arial".Size = 10End WithSelection.Style = "Normal"