On 2002-05-08 04:44, dk wrote:
Hello,
How about this?
Code:
Sub GetDate()
Dim vDate As Variant
Do
vDate = InputBox("Please enter a date dd/mm/yy", "Get date")
Loop Until IsDate(vDate) Or vDate = ""
If vDate = "" Then Exit Sub
ActiveSheet.Range("C4").Value = CDate(vDate)
End Sub
Thanks Dan,it works fine.But how can I display this inputbox by opening of the workbook.
Thanks
HTH,
Dan