Dim Path As String
Dim FileName As String

Path = "The Path of your directory"
FileName1 = Rang("A1")


Active.Workbook.SaveAs Filename:=Path and FileName1 & "-" & FileName2 & ".xls", FileFormat:=x1Normal
End Sub