задание имени диапазона

[A_L_E_X]

Задача - создать диапазон с данными с другого листа, выделить его и дать имя.

Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 23.02.2010 (User)
'

Range("H20").Select
       Rs = Selection.Row
            Cs = Selection.Column
Range("H22").Select
       Rf = Selection.Row
            Cf = Selection.Column
            
Range("H23").Value = Rs
Range("I23").Value = Cs

Range("H24").Value = Rf
Range("I24").Value = Cf

Range(Cells(Rs, Cs), Cells(Rf, Cf + 1)).Select

'With ActiveRange
   Names.Add Name:="AAA", RefersTo:=ActiveRange
   
   
'End With
    
End Sub

Работает все, кроме присвоения имени - последняя незаремленная строка.
Может кто поможет?

[A_L_E_X]

Правила форума - правильные
Ответ нашел аж в 2007 году...

[Maxx]

Sub Ìàêðîñ1()
Dim x As Range
Range("H20").Select
       Rs = Selection.Row
            Cs = Selection.Column
Range("H22").Select
       Rf = Selection.Row
            Cf = Selection.Column
            
Range("H23").Value = Rs
Range("I23").Value = Cs

Range("H24").Value = Rf
Range("I24").Value = Cf

Set x = Range(Cells(Rs, Cs), Cells(Rf, Cf + 1))

ActiveWorkbook.Names.Add Name:="AAA", RefersToR1C1:=x
   
End Sub

[A_L_E_X]

Спасибо, тоже вариант.

Обращение к модераторам:
Думаю, тему можно закрыть.

Спасибо.