0 leden en 1 gast bekijken dit topic.
Save.....
SaveAs.....
Sub BackUp() Dim BackUpPath As String BackUpPath = "Your path" Dim BackUpFile As String BackUpFile = BackUpPath & "BackUp.xlsm" ThisWorkbook.SaveCopyAs Filename:=BackUpFile End Sub
Code: [Selecteer] Dim BackUpPath As String BackUpPath = "Your path"
Dim BackUpPath As String BackUpPath = "Your path"