Excel - validation.add

Hola necesito validar en codigo una celda desde lista muy larga :

Range("a1").Validation.Delete
Range("a1").Validation.Add xlValidateList, Formula1:="casa"

For i = 1 To 200
cadena = "casa " & i
Range("a1").Validation.add xlValidateList, Formula1:=cadena
Next i

el problemas es q no me añade a la lista sino q elimina la validacion y añade el nuevo elemento, probe tanbien con hacer una string y luego añadirlo solo una vez....

For i = 1 To 200
cadena = "casa " & i
Next i
Range("a1").Validation.add xlValidateList, Formula1:=cadena

pero al ser una cadena de mas de 255 caracteres me peta.