Código para cambiar punto por diagonal. Me invierte el mes me lo pone como día

Tengo el siguiente código que me cambia punto (.) Por una diagonal(/) al cambiarlo me cambia las fechas por ejemplo tengo 01/10/2016 me lo cambia a 10/01/2016.

Sub CambiaSign()
'---- Variables modificables:
ElRango = "E:E,G:G"
Buscar = "."
CambiarPor = "/"
'---- fin Variables
'
'---- inicio de rutina:
'
Range(ElRango).NumberFormat = "@"
Range(ElRango).Replace What:=Buscar, Replacement:=CambiarPor, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub