VBA SaveAs RunTime Error 1004

[Anna_Od]

Hello,
I keep receiving RunTime Error 1004 at the saveAs line of my code. The code is below. I have tried multiple different solutions people have posted, but it doesn't help.

Private Sub CommandButton1_Click()
Dim Path As String
Dim Name As String
Dim Loc As String

    Set wb = Workbooks.Add

ThisWorkbook.Activate
Application.Calculate
If Not Application.CalculationState = xlDone Then
DoEvents
    End If

    Path = ThisWorkbook.Sheets("Sheet1").Range("C27").Value
    Name = ThisWorkbook.Sheets("Sheet1").Range("C2").Value & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hh:mm:ss")
    Loc = Path & "\" & Name & ".xlsm"

    ThisWorkbook.Sheets("Summary").Copy Before:=wb.Sheets(1)
wb.Activate
ActiveWorkbook.SaveAs FileName:=Path & "\" & Name & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

---> rest of code

The value of C27 is the file path inputted by user
The value of C2 is the type of summary needed also inputted by user

 

[Fluff]

Hi & welcome to MrExcel.
You cannot have colons as part of the filename, so you will have to change the format of the time portion of the filename.

 

[Anna_Od]

Omg! Thank you so much Fluff!
I can't believe it was that simple!

 

[Fluff]

You're welcome & thanks for the feedback.