For i = 1 To 10
grdDateRange(i, 1).CellValue = "test"
grdDateRange(i, 2).ChoiceList = DateList
'' grdDateRange(i, 3).ChoiceList = DateList
Next
Running it like that shows 10 items in both column 2 and 3 for me. Running it with the last line uncommented also shows the 10 items.
There does appear to be something strange as I am not sure why the you shoul dsee that choicelist in col 3 if the last line is commented, but that may have to do with it defaulting to the last choiselist if both the choicelist and datasource are nothing. But I could not see any lists with 128 items in it.