MÉTODO 1
Haciendo pruebas he descubierto que con un simple Replace(.Text, "/", "/") la celda hace un swap con mm/dd/yyyy <-> dd/mm/aaaa.
El código queda así:
Sub BotonFormateaFecha_Click()
'Obligatorio si no queremos que recorra la columna entera
Range("AG2", "AG" & Range("AG1").End(xlDown).Row).Select
'Swap mm/dd/yyyy <-> dd/mm/aaaa
For Each obj_cell In Selection.Cells
With obj_cell
If IsNull(obj_cell) Then Exit Sub
.Value = Replace(.Text, "/", "/")
'.NumberFormat = "dddd dd/mm/yyyy"
End With
Next
End Sub

Aunque el codigo hace un swap dada vez que se ejecuta no lo hará en la línea 7 ya que se interpreta que la primera cifra es el día. Esto es en función de la configuracion de tu windows.
También podemos formatear la linea con
.NumberFormat = "dddd dd/mm/yyyy"
para obtener algo asi: jueves 10/01/2019
MÉTODO 2
Este es otro método y solo utiliza Range.TextToColumns
junto con FieldInfo:=Array(0, xlDMYFormat)
como argumento.
Es increíble pero se queda solo en una línea. Además la celda no solo se queda formateada en fecha sino que admite cualquier carácter como separador de fechas. Lo bueno de esta simple línea es que nos evitamos utilizar operadores de asignación (=) o bucles o Replaces...
Después de ejecutarla todo el rango habrá cambiado al formato marcado por xlDMYFormat.
Cuidado porque no es un formateo permanente. Si volvemos a escribir en esa celda con los métodos anteriores la celda volverá a mostrar el formato MDY.
'VBA Excel
'Copiamos A a C
Range("C1:C9") = Range("A1:A9").Value
'Cambiamos todo al formato marcado por xlDMYFormat
Range("C1:C9").TextToColumns FieldInfo:=Array(0, xlDMYFormat)
Ejemplo de caracteres admitidos y resultado final.

Otro método consiste en formatear las celdas en modo texto, seleccionar solo el rango limitado y hacer un For Each. Por supuesto los signos de Replace(.Text, ".", "-") pueden ser cambiados.
Este código funciona perfectamente.
'VBA Excel
Private Sub f_MiFuncion()
'Obligatorio si no queremos que recorra la columna entera
Range("E1", "E" & Range("E1").End(xlDown).Row).Select
'Obligatorio para que Excel no haga swap ddmm->mmdd
Selection.NumberFormat = "@"
'Este método no genera errores de swap
For Each obj_cell In Selection.Cells
With obj_cell
If IsNull(obj_cell) Then Exit Sub
obj_cell.Value = Replace(.Text, ".", "-")
End With
Next
'Volvemos a formatear como Fecha
Selection.NumberFormat = "mm/dd/yyyy;@"
End
