Hoe krijg ik het voor elkaar om een bestand onder een andere naam op te slaan en het originele
bestand geopend te houden.
Met onderstaande code lukt het niet, na uren zoeken heb ik de moed opgegeven.
bestand geopend te houden.
Met onderstaande code lukt het niet, na uren zoeken heb ik de moed opgegeven.
Code:
Private Sub CommandButton1_Click()
Dim fPath As String
fPath = "C:\Users\" & Environ("username") & "\Desktop\"
ActiveWorkbook.SaveAs Filename:=fPath & Range("C2").Value & ".xlsb", FileFormat:=50
ActiveWorkbook.Close
Workbooks.Open Filename:="C:\Users\" & Environ("username") & "\Desktop\TEST OPSLAAN.xlsb"
End Sub