Dynamically assigning a name to cells

[JCScoobyRS]

I am pulling data from an Oracle Database and it's inserted into column AK. Once inserted, I'd like to create a drop down menu for the items just inserted, minus the first cell. The only problem is that the number of cells can increase or decrease depending on the database. Is there a way to automatically assign a name to the newly inserted cells? Reason being is that I want to create a spreadsheet for end users so that they don't have to do any formating themselves. If I create a cell to be a validation list and I can give a name to the newly inserted cells, the validation list would work no matter how many cells were inserted as long as the source for my list is looking for the name of the newly inserted cells. Thanks, Jeremy

 

[davers5]

In your previous posting, you had some code that put the oracle stuff into excel. I think there is a place in the code that had this loop:

'Display Data
For Rownum = 2 To EmpDynaset.RecordCount + 1
For Colnum = 0 To fldcount - 1
ActiveSheet.Cells(Rownum, Colnum + 1) = flds(Colnum).Value
Next
EmpDynaset.DbMoveNext
Next

So, from this I think you can say that the total number of records (number of rows you need) is empdynaset.recordcount and the number of columns is fldcount. If you know that you can then name the range of cells that you'd like by saying something like:

Range(cells(1,1),cells(empdynaset.recordcount,1)).name="MyRange"

Dave