Macro para dar formato en funcion de si es numero o texto

¡ Hola !

Estoy realizando una macro que importe un texto de un excel.
Para que sea todo más visible, estoy revisando con una macro todas las filas, que cambia los colores y los formatos de las celdas, pero ...

¿cómo podría hacer para que en función del contenido de la celda, de un rango seleccionado, diese formato "General" o "Número decimal"?

*********************************************
[A:A].Find(What:="AVPG_DAT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 6)).Select

(selecciona de la casilla i,3 a la i,6 con respecto al valor buscado...

With Selection

Si fuese numero, dar formato numero y si no, dejar general.

************************************************

Gracias de antemano. Un saludo