Error en validacion con macro

Hola,

Hace unos dias me ayudaron para validar un celda y funciono, ahora
quisiera aplicar la
validacion a cualquier celda o en una especifica mediante codigo, he
intentado con ...en office 2000 y 2003


Sub ValidaCelda()

Range("D6").Select ' no funciona
' ActiveCell.Select ' no funciona

With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop,
Operator:= _ en esta
xlBetween,
Formula1:="=Y(LARGO(D6)=9,ESNUMERO(D6))" sale
error
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Error"
.InputMessage = _
"Digite el NUMERO sin puntos ni comas"
.ErrorMessage = "El NUMERO contiene información errónea !!
VERIFIQUE ¡¡"
.ShowInput = True
.ShowError = True
End With
End Sub

En la linea de codigo donde aplica la validacion personalizada sale
error

Agradezco su colaboracion, infinitas gracias


Nelsonb