Private Sub ChangeRowHeight(Height As Variant) If IsNumeric(Height) Then If Height > 0 And Height < 100 Then Me.Rows.RowHeight = Height ElseIf Height = 0 Then Me.Rows.RowHeight = Me.StandardHeight End If End If End Sub