Macro for downloading the file from sharepoint,mine is not working
Sub ListFiles()
    Dim folder As folder
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer

    RowCtr = 1
    Set folder = fs.GetFolder("\\http://teams1.sharepoint.hp.com/teams/LA-ShipmentsProcesses/CC-Process/default.aspx")
    For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub
Macro for downloading the file from sharepoint,mine is not working
===

Sub ListFiles()
    Dim folder As folder
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer

    RowCtr = 1
    Set folder = fs.GetFolder("\\http://teams1.sharepoint.hp.com/teams/LA-ShipmentsProcesses/CC-Process/default.aspx")
    For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub