Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Adjusting Column Widths
Sub AdjustColumns()
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ws.Columns.ColumnWidth = 12
    Set ws = Nothing
End Sub