Tom, et.al.,

My thanks to you and everyone else that responded.
I finally got a chance to try some of these suggestions out.

What I finally used was:

TeamPick.RowSource = _
Worksheets("Divisions"). _
Range("A19:A26").offset(0, DivPicked - 1). _
Address(External:=True)

John

"Tom Ogilvy" wrote in message
...
Dim i as Integer
i = 5
TeamPick.RowSource=Range("A4:A11").Offset(0,i-1).Address(External:=True)

from the immediate window:

i = 5
? Range("A4:A11").Offset(0,i-1).Address(External:=True)
[Book1]Sheet1!$E$4:$E$11

--
Regards,
Tom Ogilvy

"John Wilson" wrote in message
...
Kieran,

Didn't work, but thanks anyway.
I'll play with it some more tomorrow.

John

"Kieran" wrote in message
...

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