Save File Command Button

Want to save file name in excel 2013 from what is cell f9
I'm getting an error on this line

ActiveWorkbook.SaveAs FileName:=Path & FileName1 & ".xls", FileFormat:=xlNormal

Here is my code

Private Sub CommandButton1_Click()
Dim Path As String
Dim FileName1 As String
Path = "C:\Progress Calibrations\"
FileName1 = Range("f9")
ActiveWorkbook.SaveAs FileName:=Path & FileName1 & ".xls", FileFormat:=xlNormal
End Sub

Thanks For any help

Thanks, shoul dof known better