Сохранить диапазон в переменную - VBA

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

Доброго времени суток! Подскажите как правильно реализовать: Что то типа настроек,что и откуда должно скрываться и отображаться Есть диапазон, он периодически изменяется Как в переменную(или константу?) выбрать и передать этот диапазон для использования Пробовал так:

Public Function Диапазон()
Set Диапазон = Application.InputBox("выберите ", Type:=8)
End Function

Но тщетно (

вложение заказ выпечки.rar

Решение задачи: «Сохранить диапазон в переменную»

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

                            Private Sub CommandButton14_Click()
Set Диапазон = Application.InputBox("выберите диапазон ", Type:=8)
End Sub
                        