Opslaan bestand met naam uit cel

[mat123]

Ik wil een bestand opslaan met een macro. In deze macro laat ik hem de naam zoeken die ik in A1 heb weggezet. In mijn test bestand heb ik gezet [leeg blad]. Als ik nu de macro opstart wil hij deze cel niet ophalen. De macro wil het bestand wegschrijven met [Waar.xlsm]. Wat gaat er verkeerd.

Bekijk bijlage Waar.xlsm

 

[leofact]

Je test nu a.h.w of de cel geselecteerd is, dat dus "waar"
Zo lukt het wel:

Dim Bestandsnaam As String
Bestandsnaam = "E:\test\" & Range("A1") + ".xlsm"
ActiveSheet.SaveAs Bestandsnaam
End Sub

Mvg Leo

 

[mat123]

Bedankt voor de snelle reactie. Het bestand wordt nu inderdaad opgeslagen.

 

[Tha Devil]

Verplaatst van Visual Basic naar Visual Basic for Applications