I am trying to use Dynamic Data Validation inserted at run time but it fails
consistantly with : Method 'Add' of Object 'Validation' failed.

The most basic snippet I tried was:
-------------------------------------------
---sub cmdClick()

Dim wks As Worksheet

Set wks = Worksheets("sheet1")

wks.Range("A1").Validation.Add xlValidateList, , , "=1,2,3"


The parent sheet is full of ADO 2.8 and other code that is fine. It is only
this functionality that fails.

Is there some other property to set or enable? I cannot find anywhere
speicifying any other object requirements.

Any help on this will be greatly appreciated.