Получить границы диапазона через InputBox

[kipish_lp]

Добрый день!
Подскажите пожалуйста, как с помощью InputBox'а получить диапазон, типа "$B:$B"?
Пытаюсь:

ws = Application.InputBox(Mes5, Title, Default, , , , , 8)

Выдает диапазон значений. А мне надо как границы диапазона.

[SAS888]

Например, так:

Sub test()
    Dim ws As Range
    Set ws = Application.InputBox(prompt:="Укажите диапазон", Type:=8)
    MsgBox ws.Address
End Sub

[kipish_lp]

Огромаднейшее спасибо!!!
А подскажите, пожалуйста, как с помощью диалогового окна выбрать данные с другой книги. При активном InputBox нельзя перейти в другую книгу. Или какой метод для этого используется?

[SAS888]

Попробуйте использовать не InputBox, а свою пользовательскую форму. Нужно иметь ввиду, что в немодальном режиме элемент управления RefEdit реботать не будет (или будет не корректно). Поэтому, по-видимому, потребуется в одном окне выбирать, например, одну из открытых книг и требуемый лист, затем активировать его и открывать другую форму в модальном режиме с элементом управления RefEdit. Ну, как то так... (надо пример?) Может кто-нибудь предложит более рациональный способ.

[kipish_lp]

Спасибо за ответ, буду пробовать.