20121212

No es necesario utilizar vba.

a1 b1

20121212 2012-12-12

Ingrese 20121212 en la celda a1 e ingrese la fórmula =MID(A1,1,4)& en b1 "-"&MID(A1,5,2)&"-"&MID(A1,7,2)

Luego copie y pegue los datos de la columna b en la columna a.

O

Configuración de celda----Número---Personalizado---####-##-##

Sub Macro1 ()

Selección.NumberFormatLocal = "####-##-##"

End Sub