スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロでは、アクティブブックの全シートのA列からC列の列幅を変更しています。

Sub Sumple()
    Dim mySheet   As Worksheet

    For Each mySheet In Worksheets
        mySheet.Select
        Columns("A:C").Select
        Selection.ColumnWidth = 20
    Next mySheet
    
End Sub

For Each...Next ステートメントは、配列やコレクションの各要素に対して、一連のステートメントを繰り返し実行するフロー制御ステートメントです。
ColumnWidthプロパティは、指定された対象セル範囲内のすべての列の幅を設定します。