EXCEL VBA 列の幅を別シートにコピーする

列の幅を別シートにコピーするサンプルプログラムです。

Sub test()
    Call nsub列の幅を別シートにコピーする｡(Workbooks("Book1.xlsm").Worksheets("Sheet1"), Workbooks("Book2.xlsm").Worksheets("Sheet1"), 2, 8)
End Sub

' 列の幅を別シートにコピーする。
'
'https://pgbigoroku.hatenablog.com/entry/2022/09/11/234653
Public Sub nsub列の幅を別シートにコピーする｡(ByRef pshtFromSheet As Worksheet, _
                                        ByRef pstrToSheet As Worksheet, _
                                        ByVal pintStart列番号 As Integer, _
                                        ByVal pintEnd列番号 As Integer)
    Dim intCol As Integer
    For intCol = pintStart列番号 To pintEnd列番号
        pstrToSheet.Columns(intCol).ColumnWidth = pshtFromSheet.Columns(intCol).ColumnWidth
    Next
End Sub