в строке Set a.RefersToRange = a.RefersToRange.Resize(10, 20)  
Set a.RefersToRange вызывает ошибку, возможно из-за того,  
что RefersToRange только для чтения. А так идея красивая.  
В любом случае, ВСЕМ СПАСИБО!

Как средствами VBA расширить именованный диапазон.  
Нужно добавить ячейку. Использование динамического диапазона не желательно.  
Заранее спасибо.