Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Change column width

Private Sub ChangeColumnWidth(Width As Variant)      If IsNumeric(Width) Then          If Width > 0 And Width < 100 Then              Me.Columns.ColumnWidth = Width          ElseIf Width = 0 Then              Me.Columns.ColumnWidth = Me.StandardWidth          End If      End If  End Sub