Na Excel sheet "opslaan als" terugkeren naar bron document met macro

[HoeveWatersnoodt]

Goede Morgen,

In een Excelbestand (bron) is het met behulp van een macro de bedoeling een sheet met gegevens te kopiëren; nieuw Excel bestand te openen; plakken als waarden en dit nieuwe bestand op te slaan als Excel 2003
en daarna terug te keren naar het Excelbestand (bron).
Het terugkeren naar originele bestand (bron) lukt niet omdat het lijkt dat de macro bij het opslaan in het andere document stopt.

Wat is ervoor nodig terug te keren naar Excelbestand (bron); sheet "start" cel "C1"?

Ik heb een poging gedaan om de bestandsnaam in een cel op te nemen (op sheet "instellingen" cel "AB1" staat deze formule =CEL("bestandsnaam")) en dan daarnaar te verwijzen vanuit de macro maar de macro accepteert geen verdere opdrachten na het verlaten van het de (Bron) / het opslaan als, wellicht omdat ik niet de juiste opdracht gebruikte, dus gestaakt en niet onderstaand weergegeven.

onderstaand de Macro

Sub macro5()

'Automatisch


   Sheets("Kopierblad").Select
    Cells.Select
        Selection.Copy
    Sheets("opslaan als").Select
    Cells.Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("opslaan als").Select
    Application.CutCopyMode = False
    Sheets("opslaan als").Copy
ActiveWorkbook.SaveAs Filename:="C:\Rooster op " & CStr(Format(Now, "yyyy-mm-dd hh.mm") & ".xls"), FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
 End Sub

Alvast bedankt,

Thom

 

[edmoor]

Dit zou voldoende moeten zijn:

Sub Macro5()
    ThisWorkbook.Sheets("Kopierblad").Copy
    With ActiveWorkbook
        .SaveAs Filename:="C:\Rooster op " & Format(Now, "yyyy-mm-dd hh.mm") & ".xls", FileFormat:=xlExcel8
        .Close
    End With
End Sub

 

[HoeveWatersnoodt]

Geweldig het werkt!

Bedankt! :d