Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Change row height

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