Sub textXML()

Dim strXML As String
Dim objXML As Object

    strXML = "http://XXX.ru/TestXMLFile.xml"
    Set objXML = CreateObject("MSXML2.DOMDocument")
    
    If Not objXML.Load(strXML) Then  'strXML is the string with XML'
        Err.Raise objXML.parseError.ErrorCode, , objXML.parseError.reason
    End If

    Debug.Print objXML.LastChild.SelectSingleNode("Node1").Text
    Debug.Print objXML.LastChild.SelectSingleNode("Node2").Text
    
    Set objXML = Nothing
End Sub

Private Sub Workbook_Open()
Worksheets("Лист 1").[C2].Value = File_Name
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
      Cancel = True
      With Application.CommandBars.Add(, msoBarPopup)
         With .Controls.Add(msoControlButton)
             .OnAction = "Add_line"
             .Caption = "Добавить лист"
             .FaceId = 295
         End With
        .ShowPopup
      End With
End Sub

Sub Add_line()
    Sheets.Add After:=Sheets(1)
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
      Cancel = True
      СоздатьКонтекстноеМеню
End Sub

Function СоздатьКонтекстноеМеню()
      With Application.CommandBars.Add(, msoBarPopup)
         With .Controls.Add(msoControlButton)
             .OnAction = "Add_line"
             .Caption = "Добавить лист"
             .FaceId = 295
         End With

         With .Controls.Add(msoControlButton)
             .OnAction = "Del_Sheet"
             .Caption = "Удалить лист"
             '.FaceId = 293
         End With
      End With

     .ShowPopup
   End With
End Function

Sub MoveThem() 
    Dim ws As Worksheet, ss As Worksheet, FolderName As String, Wb As Workbook 
    Application.ScreenUpdating = False 
    FolderName = ThisWorkbook.Path 
    For Each ws In ThisWorkbook.Worksheets 
        If ws.Name <> "Temp.sheet" And ws.Name <> "TOC" Then 
            If Wb Is Nothing Then 
                ws.Move 
                Set Wb = ActiveWorkbook 
            Else 
                ws.Move after:=ss 
            End If 
            Set ss = ActiveSheet 
        End If 
    Next ws 
    ThisWorkbook.Activate 
    Wb.SaveAs FolderName _ 
    & "\" & Wb.Sheets(1).Name & ".xls" 
    Wb.Close False 
    MsgBox "Look in folder " & FolderName & " for files ..." 
    Application.ScreenUpdating = True 
End Sub