Beste  oplossers,
Ik heb een sjabloon voor een risicoanalyse van chemische producten en zou graag hebben dat de gebruiker zelf niet moet ingeven wat de naam van het bestand is maar dat het afhankelijk is van wat er in een bepaalde cel staat (A3). 
In bijlage vind je wat ik van plan was maar opslaan lukt niet.
alvast bedankt om er eens naar te kijken,
dizzl

Macro wordt niet uitgevoerd in deze versie.
Dit is de code die ik in gedachte had:
Sub WijzigBestandsnaam()
    'Haal huidige bestandsnaam op
    Dim huidigeNaam As String
    huidigeNaam = ThisWorkbook.Name
   
    'Haal de waarde uit A3
    Dim A3 As String
    A3 = ThisWorkbook.Sheets("Blad1").Range("A3").Value
       
    Dim opgekuisteA3 As String
    Dim teVerwijderenTekens As String
   
   
    ' Te verwijderen tekens
    teVerwijderenTekens = "%/\"
   
    ' Verwijder de ongewenste tekens
    opgekuisteA3 = A3
    Dim i As Integer
    For i = 1 To Len(teVerwijderenTekens)
        opgekuisteA3 = Replace(opgekuisteA3, Mid(teVerwijderenTekens, i, 1), "_")
    Next i
   
   
    'Stel de nieuwe naam in
    Dim nieuweNaam As String
    nieuweNaam = opgekuisteA3 & ".xlsx"
    MsgBox nieuweNaam
   
    'Wijzig de naam van het bestand
     ThisWorkbook.SaveAs nieuweNaam
   
   
End Sub


Bedankt voor je reactie RedHead,

Ik ben redelijk zeker dat de bestandsnaam voldoende moet zijn.
Dit wordt uitgevoerd bij de gebeurtenis Workbook_BeforeSave =>Bij het bewaren zelf wordt de locatie  (het volledige pad) gekozen?
met vriendelijke groet,
dizzl

Dag,
onderstaande is een routine om een nieuwe naam aan het bestand te geven , het oude op te slaan , het nieuwe op te slaan en dan een snelkoppeling naar het nieuwe bestand op het bureaublad zetten....
Je zal zien of je hier iets mee kunt doen  .
Mvg,
Montagnard.

Nieuwenaam = ******************* vul hier de waarde in , in UW geval zou dit dan A3 zijn !!!! ********************************

MsgBox "het huidig bestand wordt eerst opgeslagen !" + (Chr(13)) + (Chr(13)) + "het nieuwe bestand wordt dan opgeslagen onder de naam : '" + Nieuwenaam + "'" + (Chr(13)) + (Chr(13)) + "er wordt ook een snelkoppeling naar het nieuwe bestand op het bureaublad gezet !" + (Chr(13)) + (Chr(13)) + "en daarna wordt Excel afgesloten !"

Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
MsgBox ("Kies eerst de map waar U het nieuwe bestand wilt opslaan :")
With FldrPicker
                .Title = "Kies de map om op te slaan"
                If .Show <> -1 Then Exit Sub
        Folder = .SelectedItems(1) & "\"
        End With
Opslaan_map = Folder
ActiveWorkbook.SaveCopyAs _
    Opslaan_map + Nieuwenaam & ".xlsm"

rem **** begin code om een snelkoppeling naar het nieuwe bestand op het bureaublad te zetten , je kan dat eventueel weglaten in Uw code !!!****
Set oWSH = CreateObject("WScript.Shell")
sPathDeskTop = oWSH.SpecialFolders("Desktop")
Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & _
Nieuwenaam & ".lnk")
With oShortcut
.TargetPath = Opslaan_map + Nieuwenaam & ".xlsm"
.Save
End With
Set oWSH = Nothing
rem **** einde code snelkoppeling opslaan ****

Application.DisplayAlerts = False
            Application.Quit



Super.
Dit werkt voor mij.
Bedankt, Montagnard

Graag gedaan !