Duda a la hora de convertir fecha

[Gsus]

Buenas, os adjunto un ejemplo para convertir una fecha separada por barras dd/mm/yyyy (columna A) en yyyy-mm-dd (columna B). El caso es que aunque en la celda se visualiza como yyyy-mm-dd después de convertir, en la barra de fórmulas sigue figurando dd/mm/yyyy. No encuentro el modo de solucionar esto... tampoco he encontrado cómo solucionarlo. Alguna idea?
Gracias!

ej_fecha.zip

[Antoni]

Sub conviertefechas()
Application.ScreenUpdating = False
With Worksheets("Hoja1")
   For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      Cells(i, "B").NumberFormat = "@"
      Cells(i, "B") = Format(Cells(i, "A"), "yyyy-mm-dd")
   Next
End With
End Sub

 

[Gsus]

Gracias, Antoni! Desconocía lo del formato @. Perfecto, como siempre.