delete Sharepoint excel document with vba

I need to delete a workbook from a sharepoint shared folder.

I have had no success using the nromal methods of -

Please Login or Register  to view this content.

This is a file i have published, and have permissions to delete manually etc.

Any ideas ?

Is there another way (eg. navigate sharepoint webpage with sendkeys to delete maybe)

Bump ......


Any ideas people ?

Private Sub deletesharepointfile()
'If nobody has the file checked out
If Workbooks.CanCheckOut("http://FilePath"") = True Then
Application.DisplayAlerts = False
'Open the file on the SharePoint server
Workbooks.Open Filename:="http://FilePath", UpdateLinks:=xlUpdateLinksNever
If Workbooks("Book1.xls").SharedWorkspace.Connected Then
'Delete the file on the SharePoint server
Workbooks("Book1.xls").SharedWorkspace.RemoveDocument
End If
'Close the workbook
Workbooks("Book1.xls").Close
Application.DisplayAlerts = True
Else
Application.DisplayAlerts = False
'Open the File to check if you already have it checked out
Workbooks.Open Filename:="http://FilePath", UpdateLinks:=xlUpdateLinksNever
'See if doc can be checked in
If Application.Workbooks("Book1.xls").CanCheckIn Then
'Check In, Save and Close
Application.Workbooks("Book1.xls").CheckIn SaveChanges:=True, Comments:="Checked-In before Delete"
'Open the file again
Workbooks.Open Filename:="http://FilePath"
If Workbooks("Book1.xls").SharedWorkspace.Connected Then
'Delete the file on the SharePoint server
Workbooks("Book1.xls").SharedWorkspace.RemoveDocument
End If
'Close the workbook
Workbooks("Book1.xls").Close
End If
End If

Stumbled across this code as it's exactly what I'm looking to do, but when I append this code into my macro, the macro executes but "Book1.xls" is not removed from SharePoint. Anything you might suggest I look into as to why the file would not be getting removed?