VBA Macro to Save Workbook as cell date + Default name with conditions

Hi !

I work on small family company, and i have an issue to save workbook. i know that to save a WB in VBA is easy using default name but my boss ask me to save it on special way and to be honest this time don't seems to be easy because the conditions. (i know a lil bit of formulas and some VBA and still learning )

This is the problem :

Worksheet Default name is : Ord-Prep-Shipped.xlsb

There are 3 cells with date
Dates Example:
Cell C37 ->When Customer place the order on Jun 16 (Cell C37 display =====> Jun 16
Cell G12 ->When Coworker prepare the Order Next day Jun 17 (Cell G12 display => Jun 17
Cell P12 ->When CoWorker went to Deliver the order (same date when prepared) on Jun 17 (Cell P12 display => Jun 17

So the condition is :
If Cells G12 and P12 have same date and C37 is 1 day early Save Worksheet as G12 Date with default Name

Example of new Worksheet Name : Jun 17 Ord-Prep-Shipped.xlsb

But

If date in Cell G12 and P12 not match Then Not save Worksheet and display an error msg -> "Check Procedure Order"

I know that is possible to do it with VBA, but it is possible that a friend help me?



Thanks a million in advance!

Sub Save_Order()
    'If Cells G12 and P12 have same date and C37 is 1 day early, Save Worksheet as G12 Date with default Name
    If Range("G12").Value = Range("P12").Value And Range("C37").Value = Range("G12").Value - 1 Then
        ActiveWorkbook.SaveCopyAs Range("G12").Text & " " & ActiveWorkbook.Name
        MsgBox Range("G12").Text & " " & ActiveWorkbook.Name, vbInformation, "Order Saved"
    Else
        'Not save Worksheet and display an error msg -> "Check Procedure Order"
        MsgBox "'Prepare' and 'Delivery' dates do not match.", vbExclamation, "Check Procedure Order"
    End If
End Sub

Hi,

Can someone help me to modify the code?, The code it doing the job perfect But just on first record, it look the condition, create the msg box and save the worksheet using the cell date and add the Default name,(But because we use the same worksheet as template, then here is the problem)
For example :
First record it save Perfect as:
1st--> Jun 10-Ord-Prep-Shipped.xlsb
2nd--> it save as Jun 11 Jun 10-Ord-Prep-Shipped.xlsb
3rd---> it save as -> Jun 12 Jun11-Jun10-Prep-Shipped.xlsb
And it keep addin date on the file name when updating new order and saved.

I need to save the file with the cell date plus Default name and keep loaded the file when input another order, and save it i need the vba to save the file name replacing just the date (depending cell date on ) but keeping the default name.
i need to keep individual record, Example of desire saved file Record:
1st--> Jun 10-Ord-Prep-Shipped.xlsb
2nd--> Jun 11-Ord-Prep-Shipped.xlsb
3rd---> Jun 12-Ord-Prep-Shipped.xlsb


Thanks, appreciated!!