Makro geht - auf Sharepoint nicht

Sub pruefen_daten_vorhanden()
Dim ExistFile
Dim xlFileName As String
xlFileName = ThisWorkbook.Path & "\daten.xls"
On Error Resume Next
ExistFile = Not CBool(GetAttr(xlFileName) And (vbVolume))
On Error GoTo 0
If Not ExistFile Then
MsgBox "Die Datei daten.xls aus JIRA ist nicht vorhanden!" & vbCrLf & _
"Vorgang abgebrochen", 64, "Hinweis"
ActiveWorkbook.Close savechanges:=False
Exit Sub
Else
End If
End Sub