At the moment I thought I had found it but when clicking the button nothing happens. What is wrong with my code? What do I have to change?
Thanks in advance for advising me.
Sub Button133_Click() Dim MyDate MyDate = Date Dim Test1Str As String Test1Str = Format(MyDate, "DD-MM-YYYY") ThisFile = Range("A1").Value Application.DisplayAlerts = False Application.Run ("SaveFile") ActiveWorkbook.SaveCopyAs Filename:="/Gebruikers/Naam/Dropbox/Folder1/Folder2 - Algemeen" & Test1Str & " " & ThisFile & " " ActiveWorkbook.Save Application.DisplayAlerts = True End Sub