Format Date in ActiveCell

[geelsu]

Please don't laugh. I know to some of you this will be very basic. I have this code that I have managed to put together with the Macro Recorder and some other examples online. I want to format the date in the ActiveCell so that no matter what is entered it will always be in the form DD/MMM/YYYY


Dim Ancestor_DOB As String

' ANCESTOR'S DOB
Range("B3").Select
Do Until Ancestor_DOB <> ""
Ancestor_DOB = InputBox$("Enter your ancestors date of birth: ", "", "", 1300, 7400)
If (Ancestor_DOB = "") Then
Beep
MsgBox "Please Enter Your Ancestore Date of Birth."
Else

ActiveCell = Format(DOB, dd / mm / yyy) ' My last feeble attempt was this, but it did not work
End If
Loop

As you can tell I don't know what I am doing to much here. Can someone please help me get started? I think once I understand the basics of VB syntax I can move along.

[alansidman]

Try this

Please Login or Register  to view this content.

[HSV]

Something like this.

Please Login or Register  to view this content.