Private Sub Workbook_BeforeClose(Cancel As Boolean)




If Range("CA1").Value > 0 Then

MsgBox Range("CA1").Value & " - ITEM(S) NEED LIST PRICE CORRECTION.  There are  " & Range("CA1").Value & "   item(s) that presently have DEALER COST > LIST PRICE.  Please fix pricing for these item(s) as indicated in Column AA."

Else

If Range("BO1").Value > 0 Then

MsgBox Range("BO1").Value & " - ITEM(S) - PRICE JUSTIFICATION MISSING. There are  " & Range("BO1").Value & "   item(s) that have a 0% price change to Dealer Cost or a negative price change.  These items are missing PLM price justification in the comments field. Please add your comments to Column T."

Else

If Range("BQ1").Value > 0 Then

MsgBox Range("BQ1").Value & "- ITEM(S) - NEGATIVE GROSS MARGIN IN DEALER COST. There are  " & Range("BQ1").Value & "   item(s) that have negative GM and are missing price confirmation.  Please confirm price by selecting YES in Column S."
Else


If Range("BS1").Value > 0 Then

MsgBox Range("BS1").Value & " - ITEM(S) WHOSE INCREASE TO DEALER COST IS GREATER THAN 5 PERCENT.  There are  " & Range("BS1").Value & "   item(s) that have a price increase to Dealer Cost greater than 5% and are missing price confirmation. Please confirm price by selecting YES in Column S."

Else



End If
End If
End If
End If

End Sub