VBA beim speichern auf Sharepoint Datei Überschreibschutz

Private Sub CommandButton1_Click()

Dim wb, i, pfad



    pfad = [C2]

    For i = 4 To 30

        If Cells(i, 3) > "" Then

            Sheets(Array("Bandvorrat", "AG100", "AG200", "AG300", "AG400", "AG500", "AG600", "Auswickeln", "Umwickeln", "KK Abmessungen", "KK Benetzbarkeiten", "Zugprüfung", "Berstdruck-Wölbhöhe", "Zipfelmessung", "Packen")).Copy

            Sheets("AG100").Select

'            Range("C34").Select

            Set wb = ActiveWorkbook

            wb.SaveAs pfad & Cells(i, 3).Value



            wb.Close

        End If

    Next i

End Sub