Hi
Try this in your code:
Do until IsDate(Answer)=True
Answer = InputBox(Message, "Date")
If IsDate(Answer) = False Then MsgBox ("Use a standard Date format - eg
5/10/08")
Loop
Remove the line I've highlighted below in red, and replace with the above.
Regards - Dave.
>
> Sub Est_New_Project_Start_Date_InputBox()
> '
> ' Est New Project Start Date InputBox Macro
>
> Sheets("Sheet1").Select
> Range("A1").Select
>
> Dim Answer
> Dim Message As String
>> A = MsgBox("Do you want to enter an Estimated New Project Start
> Date?", vbYesNo)
>
> If A = vbYes Then
>
> ' B = InputBox("Enter Date")
> Message = "Insert Estimated New Project Start Date"
> Answer = InputBox(Message, "Date")
>
> End If
>
> Range("A1").Value = Answer
> '
> End Sub
>
_________________________________________________________________
View photos of singles in your area Click Here
http://a.ninemsn.com.au/b.aspx?URL=http%3A%2F%2Fdating%2Eninemsn%2Ecom%2Eau%2Fchannel%2Findex%2Easpx%3Ftrackingid%3D1046247&_t=773166080&_r=Hotmail_Endtext&_m=EXT
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
