intReturn = MsgBox(Name & "Are you ready to calculate the data?",
vbYesNo)
Select Case intReturn
Case vbYes
'What to do if yes
Case vbNo
'What to do if no
End Select


--
mpeplow
------------------------------------------------------------------------
mpeplow's Profile: http://www.excelforum.com/member.php...o&userid=34812
View this thread: http://www.excelforum.com/showthread...hreadid=551941