Reminder To Update Worksheet

[Drip_Drip]

I have a user form with a command button on it. When the command button is selected I need to check the date that is recorded in cell Q2 of a sheet called Data. If the date is more than a 10 days old I need a message to apper warning the user and then give them two options. The first to continue, the second to abort the current macro.

Can anyone help?

 

[hsk]

try this ....

Private Sub CommandButton1_Click()
If Sheets("Data").Range("Q2").Value < Date - 10 Then
    resp = MsgBox("Date to older than 10 days" & Chr(10) & "Do you want to continue", vbYesNo)
    If resp = vbNo Then
        Exit Sub
    Else
       MsgBox "Continue"
    End If
End If
End Sub