Как передать значение ячейки в Range для использования в качестве адреса?

Question

У меня есть скрипт, который требует от пользователя ввода диапазона ячеек.Я делаю это с помощью поля ввода

Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Range("C3").Value = Range1.Address(External:=True)

Я хочу, чтобы пользователь мог снова запустить скрипт, но просто повторно использовать предыдущий диапазон.Я сохраняю адрес в ячейке, и теперь пытаюсь передать эту информацию из ячейки НАЗАД в диапазон ... Это дает мне несоответствие типов.Ниже показано, как я (вероятно, слишком просто) пытаюсь передать информацию обратно.

Set Range1.Address = Cells(3, 3).Value

Однако, если я скопирую предыдущий диапазон и вставлю его в диалоговое окно, он будет работать нормально.Я считаю, что я просто не передаю данные правильно.Есть предложения?

Answer 1

Свойство Address доступно только для чтения.Его нельзя использовать для изменения диапазона.Вместо этого просто используйте функцию Range:

Set Range1 = Range(Cells(3,3).Value)

должно работать.