Как в этот код подставить вместо символов "@" и "#" числа с помощью InputBox:?
Range("E@:E#").Select
Макрос
Sub Макрос()
Dim Верх, Низ
' Пользователь указывает верх и низ диапазона.
Верх = InputBox("ВЕРХ ДИАПАЗОНА:")
If Верх = "" Then Exit Sub
Низ = InputBox("НИЗ ДИАПАЗОНА:")
If Низ = "" Then Exit Sub
' Подстановка указанных координат в адрес диапазона.
Range("E" & Верх & ":E" & Низ).Select
End Sub
Спасибо большое, работает!