Sjabloon automatisch naam van cel geven bij opslaan

[berry01]

Hallo,

Ik heb een sjabloon gemaakt in excel. Nu wil ik graag dat de naam bij het opslaan automatisch wordt overgenomen van een vooraf bepaalde cel. (E4 met de naam Dryer op Blad 1 met de naam Questionnaire)

Ik krijg het echter niet voor elkaar.

Kan iemand mij helpen?

Berry

 

[Warme bakkertje]

Kan je hiermee verder ?

Sub opslaan()
ChDir "D:\Mijn documenten\Helpmij\" 'aanpassen naar juiste directory
ThisWorkbook.SaveCopyAs [Questionnaire!E4].Value & ".xls"
End Sub

Mvg

Rudi