VBA Code zieht es bei Sharepoint nicht

Hallo zusammen,

ich habe eine kurze Frage, ich wollte eine Datei per Sharepoint teilen aber dan gehen die VBA Codes nicht mehr. Weiss einer an was das liegt und wie man es umgehen kann? der Code macht eigentlich nur Datum und Uhrzeit in Spalte A wenn in Spalte B ein Eintrag ist.

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
If Intersect(Target, Range("B1:B5000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, -1).ClearContents
Else:
Target.Offset(0, -1) = CDate(Format(Now, "dd.mm.yyyy hh:mm"))
End If
End Sub

Grüße Boris