Adjust Row Height in Excel

RowHeightAdjustments.mod

Option Explicit

Const DefaultRowHeight As Double = 14.5

Public Sub IncreaseRowHeightByOneLine()
    Call SafelyAdjustRowHeightForAllRowsInRange(Range:=Selection, RowHeightAdjustment:=DefaultRowHeight)
End Sub

Public Sub DecreaseRowHeightByOneLine()
    Call SafelyAdjustRowHeightForAllRowsInRange(Range:=Selection, RowHeightAdjustment:=-DefaultRowHeight)
End Sub

Private Sub SafelyAdjustRowHeightForAllRowsInRange(ByRef Range As Excel.Range, ByVal RowHeightAdjustment As Double)
    Dim Row As Excel.Range
    
    For Each Row In Range.Rows
        Call SafelyAdjustRowHeight(Range:=Row, RowHeightAdjustment:=RowHeightAdjustment)
    Next Row
End Sub

Private Sub SafelyAdjustRowHeight(ByRef Range As Excel.Range, ByVal RowHeightAdjustment As Double)
    Dim NewRowHeight As Double
    NewRowHeight = Range.RowHeight + RowHeightAdjustment
    
    If NewRowHeight <= 0 Then
        Exit Sub
    End If
    
    Range.RowHeight = NewRowHeight
End Sub