Save to same path

[2Took]

Getting this error on below code:

Private Sub CommandButton1_Click()

Dim Path As String

With CreateObject("Scripting.FileSystemObject")
ActiveSheet.Name = "Data ~ " & Format(Now(), "MM.dd.yy")
End With

MyName = ActiveSheet.Name & " - " & Format(Now(), "hh.mm.ss am/pm")
'MyName = ActiveSheet.Range("B2").Value

Const csPath As String = ThisWorkbook.Path & "\" 'Same path as this file location.

Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:=csPath & MyName & ".xlsm"
Application.DisplayAlerts = True

End Sub

 

[Trebor76]

Hi 2Took,

You can't assign something that's dynamic (changeable) to a constant variable. You should use the Path variable that's been created.

Regards,

Robert