Msgbox with date

[verluc]

I want at the beginning of a macro in sheet2 a Msgbox with the date of B10 in sheet1, and with the buttons O.K. (go further) and
Cancel (exit sub)
Can someone give me a little help?
Many thnaks in advance

 

[FormR]

Try:

If MsgBox(Format(Sheets("Sheet1").Range("B10"), "dd/mm/yyyy"), vbOKCancel) = vbCancel Then Exit Sub

 

[Snakehips]

Verluc,

Try like ......

If MsgBox(Sheets("Sheet1").Range("B10"), vbOKCancel) = vbCancel Then Exit Sub
'otherwise do this....
MsgBox "Doing some other stuff..."

Hope that helps.

 

[verluc]

Tony, your code is working very fine, but I want to add the following text in the msgbox : Last working day is :
Thanks for your time.

 

[Snakehips]

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

 

[verluc]

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

Million thanks !!!

 

[Snakehips]

Million thanks !!!

Your welcome.
One thank is normally enough but I will share the million with FormR as his solution was just as good.

 

[FormR]

I was starting to feel a little unloved by this thread so thank you Tony. Although I really should have tested if format() was really needed.