Increases font size of the selected cells : Selection Format « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Selection Format

Increases font size of the selected cells

 

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

 

Related examples in the same category