Change Excel column widths by column number

gistfile1.vb

' For example: Call SetColumnWidths("Sheet1", Array(2, 4, 6, 8), 0) would collapse columns B, D, F and H on Sheet1

Sub SetColumnWidths(sheet As String, columnNumbers As Variant, width As Integer)
    For i = 0 To UBound(columnNumbers)
        Worksheets(sheet).Cells(1, columnNumbers(i)).EntireColumn.ColumnWidth = width
    Next i
End Sub

' Or to hide a contiguous range:
Sub HideColumns(sheet As String, leftmostCol As Integer, rightmostCol As Integer)
    For i = leftmostCol To rightmostCol
        Sheets(sheet).Cells(1, i).EntireColumn.Hidden = True
    Next i
End Sub