Как реализовать выбор заполнения диапазонов - VBA

Формулировка задачи:

Всем добрый день, Есть лист на котором в есть пронумерованные колонки (от 1 до 17) и диапазоны (диапазон1, диапазон2, диапазон3). Диапазоны добавлены в диспетчер имен(_Ran1, _Ran2, _Ran3) соответственно. Создан список этих диапазонов, для выбора, какой заполнять + пункт "Все". Созданы имена для заполнения колонок "От" и "До". Пример "ПримерRangeCybForum.xls"

Dim x As Range
Dim i As Integer
 
For i = Range("DataOf") To Range("DataTo")
    For Each x In Range("_Ran1")
        x.Offset(0, i) = Rnd
    Next x
Next i

При выборе От=3 и До=16. Заполняются колонки с 3й по 16тую. Как реализовать выбор заполнения диапазонов. + возможность при выборе пункта "Все" заполнить все диапазоны по очереди. Заранее всем спасибо......

Решение задачи: «Как реализовать выбор заполнения диапазонов»

textual
                            Листинг программы 
                        

                            Dim x As Range
Dim i As Integer, ii As Integer
Dim rang As String, Diap As String
 
rang = Sheets(1).Range("C4").Value
 
    For i = Range("DataOf") To Range("DataTo")
        For ii = 1 To Range("Диапазоны").Count - 1
            If rang = "Все" Then
                Diap = "Диапазон" & ii
            Else
                Diap = rang
            End If
            
            For Each x In Range(Diap)
                x.Offset(0, i) = Rnd
            Next x
        Next ii
    Next i
                        