Bestandsnaamgeven via een macro

[Willem Blaas]

Geacht forum,

Tijdens het draaien van een macro wil ik een sheet copieren naar een nieuw bestand, de gebruiker moet een naam geven aan dit bestand.

Ik vraag : geef bestandsnaam, en deze naam wil ik verwerken naar de naam van het bestand en de plaats van het bestand
==================================================
Dim strbrandstof2 As String

Sheets("totaal").Select
strbrandstof2 = InputBox("Geef naam.", "Brandstof beheer")

Sheets("totaal").Copy
ActiveWorkbook.SaveAs Filename:="D:\_willem\excel\&strbrandstof2&.xls"
ActiveWorkbook.Save
ActiveWindow.Close
=================================================
volgens mij moet ik andere tekens gebruiken waartussen de nieuwe naam staat dus &strbrandstof2&, nu loopt de macro wel maar komt het nieuwe bestand gewoon te heten strbrandstof2 en in de Dir waar ik in bezig ben.

kunt u mij helpen ?

bij voorbaat dank , Willem Blaas

 

[ReneDirks]

ActiveWorkbook.SaveAs Filename:="D:\_willem\excel\" & strbrandstof2 & ".xls"

 

[Wigi]

Dim strbrandstof2 As String

Sheets("totaal").Select
strbrandstof2 = InputBox("Geef naam.", "Brandstof beheer")

Sheets("totaal").Copy
ActiveWorkbook.SaveAs Filename:="D:\_willem\excel\" & strbrandstof2 & ".xls"
ActiveWorkbook.Close

 

[Willem Blaas]

ActiveWorkbook.SaveAs Filename:="D:\_willem\excel\" & strbrandstof2 & ".xls"

dit is een goede bingo, beiden bedankt