Corregir este codigo

No se por que cuando ejecuto este codigo, se demora y me muestra como
una especie de parpadeo en la hoja en la cual lo estoy aplicando, hace
exactamente lo que necesito pero es demorado, ¿habra manera de
corregirlo para que esto no suceda?

Sub CambioFecha()
Dim celda As Range
For Each celda In Selection
With celda
.TextToColumns Destination:=celda, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False,
FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
End With
Next celda
End Sub

El codigo lo que me realiza es pasar unas celdas con fecha tipo texto a
tipo fecha, pues es un archivo que se crea de otra aplicacion externa y
las columnas de las fehcas las muestra como texto. Agradezco sus
comentarios como siempre.

¡Feliz Navidad!