opslaan met in de naam gegevens uit een cel

[davylenders123]

ActiveWorkbook.SaveAs Filename:=("T:\Mag-Data\Mit pc\davy\planning interim\planning al door gemaild" & "\Planning week [COLOR="#8b0000"][COLOR="#ff8c00"]...[/COLOR][/COLOR] Doorgestuurd op " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls")

De code hierboven slaat het bestand op met als naam planning week doorgestuurd op datum uur.

vb planning week doorgestuurd op 01-05-2011 00u 01.xls

Nu zou ik graag hebben dat op de gele puntjes in de code het getal komt te staan uit cel f1 uit tabblad invulblad.

Wat moet ik dan aan de code toevoegen?

 

[aelatik]

ActiveWorkbook.SaveAs Filename:=("T:\Mag-Data\Mit pc\davy\planning interim\planning al door gemaild" & "\Planning week " & Sheets("invulblad").Cells(1, 6).Value & " Doorgestuurd op " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls")

 

[davylenders123]

aelatik

Bedankt :thumb:

Het werkt :thumb::thumb: