Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub ChangeRowHeight(Optional PctChg As Integer = 10, Optional IncDec As Boolean = True)
'increase/decrease row height by PctChg%
'default to increase by 10%
With ActiveSheet.UsedRange.EntireRow
If IncDec Then
.RowHeight = .RowHeight * (1 + PctChg / 100)
Else
.RowHeight = .RowHeight * (1 - PctChg / 100)
End If
End With
End Sub
Sub ChangeRowHeight2(Optional PctChg As Integer = 10, Optional IncDec As Boolean = True)
'for rows with varying RowHeight
'increase/decrease row height by PctChg%
'default to increase by 10%
Dim rRow As Range
With ActiveSheet.UsedRange
For Each rRow In Range(.Cells(1, 1), .Cells(.Rows.Count, 1))
With rRow.EntireRow
If IncDec Then
.RowHeight = .RowHeight * (1 + PctChg / 100)
Else
.RowHeight = .RowHeight * (1 - PctChg / 100)
End If
End With
Next
End With
End Sub