Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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