G'Day

I'm in the process of making a Quote form in workbook named MASTER, when the quote is finished i want to save as the quote number in sheet "quote" range H3 this part i have sorted, i want to default back to the master workbook and then update the quote number by 1, range H3 + 1 then save the master copy. closing the newly saved as workbook,
this is what i have so far, it updates the quote number in the new workbook.

Private Sub CommandButton2_Click()
'save as

    Dim FName As String
    Dim FPath As String
    Dim mycount As Integer
    Dim ws As Worksheet
    
    Set ws = Worksheets("quote")
    
    FPath = "C:\Documents and Settings\Administrator\Desktop\QUOTES"
    FName = Sheets("quote").Range("H3").Text
    ThisWorkbook.SaveAs Filename:=FPath & "\" & FName

    mycount = ws.Range("H3") + 1
    ws.Range("H3") = mycount

End Sub