InputBox value

[MUKESHY12390]

Hello.....Frnds
M trying to put ms value in Range("A1") but when i run the Macro2 instead of date it showing Default time 12:00:00 AM, I dont' knw why .?
Pls help me ....Thanks IN Advance!

Sub macro1()
Dim ms As Date
MsgBox ms
Range("A1").Value = ms
End Sub


Sub macro2()
Dim ms As Date
ms = InputBox("Enter Your Date ")
MsgBox ms
Call macro1
End Sub
'' M trying to put ms value in Range("A1") but instead of date it showing Default time 12:00:00 AM End Sub

[/code]

 

[VoG]

Try like this

Sub test()
With Range("A1")
    .NumberFormat = "dd/mm/yyyy"
    .Value = DateValue(InputBox("Enter date"))
End With
End Sub

 

[MUKESHY12390]

not working.... it showing 1/0/1900 in Range("A1")
Currently I hv no choice, I hv to go through the following... way

Sub macro1()
Dim ms As Date
With Range("A1")
    .NumberFormat = "dd/mm/yyyy"
    .Value = DateValue(ms)
    End With


End Sub


Sub macro2()
Dim ms As Date
ms = InputBox("Enter Your Date ")
MsgBox ms
Call macro1
End Sub

 

[VoG]

This works

Sub macro1(ms As String)
With Range("A1")
    .NumberFormat = "dd/mm/yyyy"
    .Value = DateValue(ms)
End With
End Sub


Sub macro2()
Dim ms As String
ms = InputBox("Enter Your Date ")
Call macro1(ms)
End Sub

 

[MUKESHY12390]

thank you so much.....! that's work great...ray: