Click button to save as file name --> open message if range is 1

Hello all. You've been very helpful in the past. I hope you can help again.

I have a template file that's opened from another workbook (WB1). When a button is clicked, the macro saves the template as WB1 with EST added to the end. It's also saved to a client folder in which WB1 resides. Then range AZ2 is changed from '0' to '1' so that the macro can't be reactivated.

What I need is, when the range AZ2 is '1' the button can still be clicked, and a message will pop up that there is already a file saved with EST and do you still want to save it? If yes, then it's saved as EST2 and the range becomes '2'. Then EST3 with the range '3', etc.

Is this possible?

My code now is --

Sub SaveJobFile()
Dim stFileName As String, stFolder As String
If Range("AZ2") = 0 Then
    stFileName = Sheet41.Range("B90") & "\" & "\Estimates\" & Range("B88") & " EST" & ".xls"
    Range("AZ2") = 1
ActiveWorkbook.SaveAs FileName:=stFileName
MsgBox stFileName & " was saved.", vbInformation + vbOKOnly, "Workbook Saved"
 End If
End Sub

Thanks for your help.

Try this (haven't tested it):

Sub SaveJobFile()
Dim stFileName As String, stFolder As String
If Range("AZ2") = 0 Then
    stFileName = Sheet41.Range("B90") & "\" & "\Estimates\" & Range("B88") & " EST" & ".xls"
    Range("AZ2") = 1
    ActiveWorkbook.SaveAs Filename:=stFileName
    MsgBox stFileName & " was saved.", vbInformation + vbOKOnly, "Workbook Saved"
Else
    Response = MsgBox("A file with this name already exist, do you still want to save it", vbOKCancel)
    If Response = vbOK Then
        stFileName = Sheet41.Range("B90") & "\" & "\Estimates\" & Range("B88") & " EST" & Range("AZ2").Value & ".xls"
        Range("AZ2").Value = Range("AZ2").Value + 1
        ActiveWorkbook.SaveAs Filename:=stFileName
        MsgBox stFileName & " was saved.", vbInformation + vbOKOnly, "Workbook Saved"
        Response = ""
    End If
End If
End Sub

The value changes in AZ2 but I get a 404 error message and the file does not save.

Can you see on which row you get the error?

No actually, it just gives me a 404 error message and then changes the range AZ2 from '1' to '2'. It actually changes the file name also but doesn't save it anywhere.

I got it, rkey!! I had to change a cell on the sheet itself...and it worked perfectly. Thank you! This is a time saver.