Reminder when Saved

[Raychill Canuck]

So, I have some code (see below) that won't allow users to save the spreadsheet until certain cells are filled in. I now want to include code that will remind the user to save as macro enabled spreadsheet (xlsm), but only if the file isn't already xlsm.

Here's my code so far:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.CountA(Range("P19, P29, P31")) <> _
    Range("P19, P29, P31").Count Then
    MsgBox "Time To Reoccupation, Quote Done By and Job Type must be filled in before saving quote"
    Cancel = True
End If
End Sub

 

[Joe4]

You are welcome!