Sub SaveQuote()
ActiveWorkbook.SaveCopyAs "C:\[COLOR=red]YOUR\FILE\PATH[/COLOR]\" & Sheets("Quote").Range("H4") & ".[COLOR=black]XLSM[/COLOR] "
Sheets("[COLOR=red]Quote[/COLOR]").Range("H4").Value = Sheets("[COLOR=red]Quote[/COLOR]").Range("H4").Value + 1
ActiveWorkbook.Save
End Sub