Help with Excel VBA Save As

[Peter Davison]

I cannot get the following code to do just a simple save as cell value it just comes up with an error on the ActiveWorkbook.SaveAs line. I can't think what I am doing wrong? Any help will be appreciated.
Private Sub CommandButton1_Click()

Dim Path As String
Dim filename1 As String
Path = "C:\"
filename1 = Range("d6").Value
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Path & filename1 & ".xlsm", FileFormat:=52
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

 

[Joe4]

Welcome to the Board!

What is the exact value in cell D6?
Do you have rights to save things to the root of your C drive?

 

[Peter Davison]

Welcome to the Board!

What is the exact value in cell D6?
Do you have rights to save things to the root of your C drive?

Welcome
In D6 it is just the word "Davison"
Well spotted I don't have rights to save into C:\ but I can save into a folder within C:\.
I've just tried it and it works.
Thanks so much I've spent hours trying to get my head round that.
I am a newcomer to VBA
Cheers and thanks for your time.

 

[Joe4]

You are welcome.
I am glad it was something simple and we were able to help you get it fixed quickly.
Feel free to come back anytime you need help!