Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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