I'm having difficulties saving a file to a certain location.

My code is.

Sub closeappandsave()

Application.ScreenUpdating = False

servpath = "c:\my documents"

Period = Workbooks("Flash Report
V1.0.xls").Worksheets("Summary").Range("AA1").Text
Week = Workbooks("Flash Report
V1.0.xls").Worksheets("Summary").Range("AA2").Text

File = Workbooks("Flash Report
V1.0.xls").Worksheets("Summary").Range("z6").Value

ThisWorkbook.SaveAs Filename:="servpath & " \ " & Period & " \ " & Week & "
\ " & File"

End Sub

Any help on getting this working would be appreciated.

Nick