嫌いなVBAで、開いている2つのExcelファイルの列幅を合わせる（アクティブシートを対象とする）

Excel-DNAに撃沈されたので、泣きながらVBAコードを書いてみました。
開いているExcelファイルの名前を指定する必要がありますが
まー自分用で使う分には問題ないかなと

列幅は「スタイルを指定して張り付ける（幅）」でコピーすると、外部データ取込み？の機能が消えてしまうため、非常に危険です。
手作業でサイズを引っ張ってくるのにも時間がかかるので、同期化するコードを作成。

Sub SyncColumnSize()
    Application.ScreenUpdating = False
    Dim strA As String
    Dim strB As String
    strA = "[Base Excel].xls"
    strB = "[Sync Excel].xls"
    
    Dim size
    
    Dim sheet
    Dim sheet2
    Set sheet = Workbooks(strA).ActiveSheet
    Set sheet2 = Workbooks(strB).ActiveSheet

    Dim iLoop As Long
    For iLoop = 1 To 100
        size = sheet.Cells(1, iLoop).ColumnWidth
        sheet2.Cells(1, iLoop).ColumnWidth = size
    Next
    Application.ScreenUpdating = True
End Sub