If MsgBox(Format(Sheets("Sheet1").Range("B10"), "dd/mm/yyyy"), vbOKCancel) = vbCancel Then Exit Sub
If MsgBox(Sheets("Sheet1").Range("B10"), vbOKCancel) = vbCancel Then Exit Sub
'otherwise do this....
MsgBox "Doing some other stuff..."
Code:If MsgBox("Last working day is : " & Sheets("Sheet1").Range("B10"), vbOKCancel) = vbCancel Then Exit Sub 'otherwise do this.... MsgBox "Doing some other stuff..."