Mijn excuses, warme bakkertje, ik had inderdaad vrijdag jouw oplossing gezien maar pas hedenochtend geprobeerd en het werkt precies op de manier zoals ik bedoelde, alleen is mijn vraag nu nog of het mogelijk is om ook op te slaan in de map die vermeld staat in cel "E1" in plaats van in "mijn documenten"... Als ik namelijk SpecialFolders("MyDocuments") vervang door SpecialFolders(ActiveSheet.Range("E1")) krijg ik een foutmelding in de volgende regel, zie bijgevoegde afbeelding.
Hartstikke bedankt voor je hulp en nogmaals mijn excuses voor de (te) late dankbetuigingen.
Dank ook aan iedereen anders die de moeite heeft genomen om mijn probleem te willen oplossen.
Groetjes Hans