Активация именованного диапазона

[A_L_E_X]

Dim ИМЯ
ИМЯ = ActiveCell.Value

    Application.Goto Reference:="" & ИМЯ

Как правильно написать последнюю строку?
Нужно по значению активной ячейки перейти к именованному диапазону.

Заранее спасибо.

[R Dmitry]

Сообщение от A_L_E_X

Dim ИМЯ
ИМЯ = ActiveCell.Value

    Application.Goto Reference:="" & ИМЯ

Как правильно написать последнюю строку?
Нужно по значению активной ячейки перейти к именованному диапазону.

Заранее спасибо.

Application.Goto Reference:=range(ИМЯ)
при условии что в активной ячейке что типа A1

[A_L_E_X]

Сообщение от R Dmitry

Application.Goto Reference:=range(ИМЯ)

Run-time error '1004'
Method 'Range' jf object '_Global' failed

[R Dmitry]

Сообщение от A_L_E_X

Run-time error '1004'
Method 'Range' jf object '_Global' failed

так а что у вас в ячейке записано?

[A_L_E_X]

Ок_П_Пр_+Имп/P_Бел_Прям_LU_525_550

[R Dmitry]

Sub diap()
Dim Nm As String
Nm = "Diap" ' имя вашего диапазона
Application.Goto Reference:=Range(Mid(ActiveWorkbook .Names(Nm).RefersTo, 2))
End Sub

вот вам пример как надо

[R Dmitry]

Сообщение от A_L_E_X

Ок_П_Пр_+Имп/P_Бел_Прям_LU_525_550

Это имя вашего диапазона?

[A_L_E_X]

Если я правильно Вас понял -
Nm = "Diap" означает, что я в коде должен написать:
Nm = "Ок_П_Пр_+Имп/P_Бел_Прям_LU_525_550"

Мне же требуется, чтобы имя получалось как значение (текстовое) активной ячейки.

Но все равно, спасибо за участие...

[R Dmitry]

Сообщение от A_L_E_X

Если я правильно Вас понял -
Nm = "Diap" означает, что я в коде должен написать:
Nm = "Ок_П_Пр_+Имп/P_Бел_Прям_LU_525_550"

Мне же требуется, чтобы имя получалось как значение (текстовое) активной ячейки.

Но все равно, спасибо за участие...

ну что тут непонятного
Nm =ActiveCell.Value

[A_L_E_X]

Сообщение от R Dmitry

Это имя вашего диапазона?

Намек понял, слэш убрал, все равно не работает.

Странно, но мой эксель это имя принял...