Untitled

Private Sub SharePoint_Download_Lists()

    Hoja = "ExportSHP"
    SharePointApplication = ""
    SharePointListView = ""
    SharePointListName = ""
    Application.Run "ExportSharePointList", Hoja, SharePointApplication, SharePointListView, SharePointListName

End Sub

Private Sub ExportSharePointList(Hoja, SharePointApplication, SharePointListView, SharePointListName)

    Dim objMyList As ListObject
    Dim objWksheet As Worksheet
    Dim strSPServer As String
    
    'Delete previous Sheet if exist
    For Each sh In Worksheets
        If sh.Name = Hoja Then sh.Delete
    Next sh
    
    'Add Sheet in excel
    Worksheets.Add After:=Sheets(Sheets.Count)
    
    'Rename Sheet
    Sheets(Sheets.Count).Name = Hoja
    
    ' Add a list range to the newly created worksheet
    Set objMyList = Sheets(Hoja).ListObjects.Add(xlSrcExternal, _
        Array(SharePointApplication, SharePointListName, SharePointListView), False, , Range("A1"))

    'Unlist table
    Sheets(Hoja).ListObjects(1).Unlist

    'Set table name if you want keep the table
    'Sheets(Hoja).ListObjects(1).Name = Hoja

End Sub