VBA Code issues - Cannot get file to save as using cell contents

[ilaughatgas]

Hi guys, I'm pretty new to VBA. I know there are some similar threads on here which have similar issues, I've worked my way through them and I'm still at a loss as to why my code won't work. I'm trying to create a button which will save the workbook to a certain location using the contents of three cells, the code I'm using is:

Private Sub CommandButton1_Click()
Dim Path As String
Dim Filename1 As String
Dim Filename2 As String
Dim Filename3 As String
Path = "I:\Ashford\Departments\_Private\CI Team\_Ted Barton\Other\Mezz floor paperwork project\Saved files"
Filename1 = Range("D3")
Filename2 = Range("G3")
Filename3 = Range("J3")
ThisWorkbook.SaveAs Filename:=Path & Filename1 & "-" & Filename2 & "-" & Filename3 & "-" & ".xlsm", FileFormat:=52




End Sub

When I click the command button the error I get reads "Run-time error '1004': Method 'SaveAs' of object '_Workbook' failed. I click debug and the debugger highlights the part of the code I've put in red above

I think it has something to do with the file extension names, I've tried playing around but to no avail. Your help on this would be greatly appreciated.

 

[steve the fish]

Try a backslash on the end of the Path string

 

[Sunny Kow]

Possibly missing a \ at the end of the Path

 

[ilaughatgas]

Thanks for replying so quickly guys, where do I put the backslash? I'm now getting a syntax error.

 

[Sunny Kow]

Path = "I:\Ashford\Departments\_Private\CI Team\_Ted Barton\Other\Mezz floor paperwork project\Saved files\"

 

[ilaughatgas]

That's got it, thank you so much for your prompt help. It's greatly appreciated. Apologies for my inexperience with these things.

Thanks again, take care

 

[Sunny Kow]

You are welcome. Glad we were able to help.