....Range("" & Range("LineSource") & "").Value L определяется как, например, П_ЭСП. Динамический список с 12 позициями так и называется П_ЭСП. Число списков ... ... как и число участков. Вот это Lines.List = lists.Range("П_ЭСП").Value - заполняет список без проблем :( Заранее спасибо!