Wow, I just saw this. I'll give a try on Monday... Thanks, Steve
On Apr 16, 9:39 pm, Dave Bonallack <davebonall...@hotmail.com> wrote:
> 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
> Herehttp://a.ninemsn.com.au/b.aspx?URL=http%3A%2F%2Fdating%2Eninemsn%2Eco...-
> Hide quoted text -
>
> - Show quoted text -
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
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
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
