gegevens wegschrijven/kopiëren naar apart blad en opslaan als apart document

[Warme bakkertje]

Die stond er toch al in(zie rode tekst)
Je schreef eerder dat je geen =Vandaag() wil gebruiken. Dit kan je opvangen door na het kopieëren die waarde statisch te maken door volgende toevoeging (stel in A1 staat de formule)

With ActiveWorkbook
     [COLOR="Blue"][A1].Value = [A1].Value[/COLOR]
    [COLOR="Red"]ActiveSheet.Name = [H4].Value[/COLOR]
    .SaveAs "D:\" & [H4] & ".xls"
    .PrintOut
    .Close False
End With

 

[arierood]

Rudi,
Helemaal goed. Na een goede nachtrust zie je dingen toch wat helderder.
Mag ik je hartelijk danken voor je geduldige uitleg en hulp? Gr. Arie

 

[Warme bakkertje]

:thumb: