That's a great idea. Thanks for posting the solution.

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"dchow" wrote in message
...
Thanks. That would work.
I took a different approach. I assigned a named range to the input
range. Then I can change the named range.


On Tue, 18 Nov 2003 14:06:50 -0600, "Dick Kusleika"
wrote:

dchow

The only way I can see to do it is to select the shape

Dim shp as Shape
Set shp = Sheet1.Shapes(1)
shp.Select
Selection.ListFillRange = "A1:A10"