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