try
Dim i as Integer
i= 5
with worksheets("Divisions")
set TeamPick.RowSource = range(.cells(4,i),.cells(11,i))
msgbox range(.cells(4,i),.cells(11,i)).address ' please delete
end with



Note this is untested.


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements