Hola amigo
sdnsdlm ,
Lamento tener que contradecirte de nuevo, pero esta vez con pruebas que no sólo te dejarán el C.. Pelao, sino que tendrás que ponerte algo para evitar se te vea el parche que, supongo llevas:
Resulta que como te explicaba, los valores de "Properties" SIEMPRE (ahora el NUNCA lo cambio a SIEMPRE) deben ser numéricos, por la sencilla razón de que ellos forman parte de un arreglo cuyos elementos se identifican (indexa) por dígitos.
Si te queda dudas puedes probar esto:
.Columns("tuColumna").Properties(2).Value = "La descripción de la columna"
.Columns("tuColumna").Properties(7).Value = "Texto de validación"
.Columns("tuColumna").Properties(8).Value = "Regla de validación"
También descubrí que son quince (15) propiedades en total, algunas aceptan .Value="XXX"; otra deben tener .Value=true/faalse ... etc.
Ojalá me digas cual es el título de tu libro para comprarlo y colgarlo como lo peor de lo inservible.
(lástima que no hay el Smilies de los mentirosos)
Adios.
------------------------------------------------------------
PD. Se mo olvidada algo:
Si gustas saber como lo aría con DAO, aquí esta:
With TableDef
.Fields.Append .CreateField("tuColumna", dbText, 7)
.Fields("tuColumna").DefaultValue = "Hola"
End With