Private Sub Workbook_AfterXmlImport(ByVal Map As XmlMap, ByVal IsRefresh As Boolean, ByVal Result As XlXmlImportResult)
If Map.Name <> "application_Map" Then Exit Sub
Dim cel As Range, ws As Worksheet, rng As Range
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set rng = ws.ListObjects(1).ListColumns("name").Range
For Each cel In rng
If Not (cel.Comment Is Nothing) Then cel.Comment.Delete
cel.AddComment cel.Offset(0, 1).Text
rowID = cel.Row - rng.Row
Next
End Sub