2D属性リンクを扱いたい7

ですが、内容的にはこちらを変更したものです。
2D属性リンクを扱いたい4 - C#ATIA

前回CSVファイルとしてエクスポートしたのですが、
同じレイアウトでセルのオブジェクト名を記載したテーブルを
横に作成した方が確認が楽な事に気が付きました。

'vba sample_CreateCellNameTable using-'KCL0.0.13'  by Kantoku
'指定したDrawTableを隣にｺﾋﾟﾍﾟしｾﾙのｵﾌﾞｼﾞｪｸﾄ名を書き出す

Option Explicit

'元ﾃｰﾌﾞﾙとのﾏｰｼﾞﾝ距離
Private Const MARGIN_X = 10#

Sub CATMain()

    'ﾄﾞｷｭﾒﾝﾄのﾁｪｯｸ
    If Not CanExecute("DrawingDocument") Then Exit Sub
    
    Dim dDoc As DrawingDocument
    Set dDoc = CATIA.ActiveDocument
    
    'ﾃｰﾌﾞﾙ選択
    Dim msg As String
    msg = "テーブル選択/ESCキー中止"
    
    Dim dwTblOri As DrawingTable
    Set dwTblOri = KCL.SelectItem(msg, "DrawingTable")
    If dwTblOri Is Nothing Then Exit Sub
    
    'ﾃｰﾌﾞﾙｺﾋﾟﾍﾟ
    Dim dwTblNew As DrawingTable
    Set dwTblNew = CopyTable(dwTblOri)
    If dwTblNew Is Nothing Then
        MsgBox "ﾃｰﾌﾞﾙのｺﾋﾟﾍﾟに失敗しました"
        Exit Sub
    End If
    
    'ﾃｰﾌﾞﾙ幅取得
    Dim moveX As Double
    moveX = GetColumnSizeAll(dwTblNew)
    dwTblNew.X = dwTblNew.X + moveX + MARGIN_X
    
    'ﾃｰﾌﾞﾙにｵﾌﾞｼﾞｪｸﾄ名記入
    WriteCellName dwTblNew
    
    MsgBox "done"
    
End Sub

Private Sub WriteCellName( _
    ByVal table As DrawingTable)
    
    Dim r As Long, c As Long
    
    With table
        For r = 1 To .NumberOfRows
            For c = 1 To .NumberOfColumns
                .SetCellString r, c, .GetCellObject(r, c).name
            Next
        Next
    End With
    
End Sub

Private Function CopyTable( _
    ByVal table As DrawingTable) _
    As DrawingTable
    
    Dim sel As selection
    Set sel = CATIA.ActiveDocument.selection
    
    Dim vi As DrawingView
    Set vi = KCL.GetParent_Of_T(table, "DrawingView")
    If vi Is Nothing Then Exit Function
    
    CATIA.HSOSynchronized = False
    
    With sel
        .Clear
        .Add table
        .Copy
        .Clear
        .Add vi
        .Paste
        Set CopyTable = .Item2(1).Value
        .Clear
    End With
    
    CATIA.HSOSynchronized = True
    
End Function

Private Function GetColumnSizeAll( _
    ByVal table As DrawingTable) As Double
    
    Dim sumClm As Long
    sumClm = 0
    
    Dim i As Long
    For i = 1 To table.NumberOfColumns
        sumClm = sumClm + table.GetColumnSize(i)
    Next
    
    GetColumnSizeAll = sumClm
    
End Function