Doh! I figured it out:

I asked:
How would I replace the line

..ListFillRange = Worksheets("GarmentTypes"). _
Range("List_GarmentTypes").Address(external:=True)

and the answer was, of course

..ListFillRange = "List_GarmentTypes"

Thanks.

Darren