Macro que convierte texto en fecha. Completar con If Then Else para evitar error

Hola queridos Expertos. Necesito que me completen una macro que cree y asigne a botoncito en la barra de herramientas de acceso rapido de Excel.

La misma convierte los datos de las celdas que selecciono en formato fecha.

Cuando bajo reportes desde nuestro sistema contable la columna que contiene la fecha tiene el siguiente formato:

20120401

20120402

20120403

La macro lo que hace es convertir los datos de las columnas en:

01/04/2012

02/04/2012

03/04/2012

Pero cuando por error selecciono una celda que no tiene datos me tira el mensaje de depurar.

La macro en cuestión es la siguiente:

Sub Fecha_en_columnas_AMD()
Selection.TextToColumns , DataType:=xlDelimited, FieldInfo:=Array(1, 5)
End Sub

Tal vez si le agregan la condición If Then Else se puede evitar que me tire el error.

Que opinan?

Desde ya, muchas gracias.