Excel VisualBasic Script

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