Arbeitsmappe als freigegebene Arbeitsmappe speiche

Sub CommandButton7_Click()
Application.ScreenUpdating = False
Dim I, Jahr As Integer
Dim Pfad As String
Pfad = "\\jvakofs01\user$\dirk.raeder\Tagesdienstplan\Neu\Datenbank_Tagesdienstplan_"
Jahr = InputBox(prompt:="Bitte geben sie das Kalenderjahr ein:" & vbNewLine & "(zwischen 2009  _
und 2100)", Title:="Eingabe Jahr")
If Jahr > 2008 And Jahr 

Die so erstellte Datei, z.B.: Datenbank_Tagesdienstplan_2009.xls, soll aber als freigegebene Arbeitsmappe gespeichert werden.
Und genau da liegt mein Problem.
Ich weis nicht, wie ich den Code ändern muss!?!?!?!
Für Hilfe wäre ich dankbar.
MfG
Dirk R.