Macro changing date format when doing find and replace

Hi All,

My macro is changing date by mistake when doing find (.) and replace (/) in the date column
here is example date 9/02/2013. This date changes to 2/09/2013 after running the macro.

Sub Date_Macro()
 Columns("A:A").Select
     Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Can some one please help!
Thanks