Gemmes som .xlsm på fælles drev og åbnes/redigeres/gemmes af alle

Jeg har lavet et ark der skal gemmes som excel under et specifikt navn (Står i felt B8) og det skal kunne åbnes/redigeres af alle.

Jeg har forsøgt at bruge en løsning fra et lignene spørgsmål på dette site men det virker ikke.

Sub gemmefunk()
   
  nr = [Ark1!B8]
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Dokumenter\" & nr & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

Jeg har ændret Type:=xlTypePDF til Type:=xlTypexlsm og stien til  C:\Dokumenter\" & nr & ".xlsm 

Filen bliver stadig gemt som PDF med Filnavn i B8 og .xlsm
Er der en der kan komme med de vise sten så vores værksted kan få en reklamations rapport :-)