Sub IncreaseFontSize_Standard() Dim rng As Range, ar As Range If Selection Is Nothing Then Exit Sub For Each ar In Selection.Areas For Each rng In ar rng.Font.Size = rng.Font.Size + 2 Next rng Next ar End Sub