Sub AdjustColumns() Dim ws As Worksheet On Error Resume Next Set ws = ThisWorkbook.Worksheets("Sheet1") ws.Columns.ColumnWidth = 12 Set ws = Nothing End Sub