Программирование на VBA

Формулировка задачи:

Добрый день!
Подскажите, плиз!
Имеется макрос, который выделяет отдельные не пустые строки по заданному условию (смотри ниже).
Выходит ошибка Run-time error '1004' Method 'Range' of object '_Global' failed.
Причем если заполнено 27 строк, то все работает, а если более, то нет.
Не пойму в чем дело. :(
Код макроса
Sub Запускаем_макрос()
Dim ЕдИзм, КолвоВсего, Исх, ДатаЗаявки, Подразделение, НаправлениеРасхода, НаправлениеДеят, СтатусЗаявки As String
Dim nResult As Integer
'выделяем все не пустые позиции
If ActiveSheet.Name = "Годовая заявка" Then
For rwIndex = 10 To 100
ЕдИзм = Range("$E$" & rwIndex).Value
КолвоВсего = Range("$F$" & rwIndex).Value
Исх = Range("$U$" & rwIndex).Value
ДатаЗаявки = Range("$V$" & rwIndex).Value
Подразделение = Range("$AA$" & rwIndex).Value
НаправлениеРасхода = Range("$AB$" & rwIndex).Value
НаправлениеДеят = Range("$AC$" & rwIndex).Value
СтатусЗаявки = Range("$AG$" & rwIndex).Value
If ЕдИзм <> "" And КолвоВсего <> "" And Исх <> "" And ДатаЗаявки <> "" And Подразделение <> "" And НаправлениеРасхода <> "" And НаправлениеДеят <> "" And СтатусЗаявки <> "" Then
Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex).Select
ActiveWorkbook.Names.Add Name:="request_item", RefersToR1C1:=Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex)
End If
Next rwIndex
End If
End Sub

Решение задачи: «Программирование на VBA»

textual
                            Листинг программы 
                        
                            Range(Selection.Address + <font color="teal">",A"</font> & rwIndex & <font color="teal">":"</font> & <font color="teal">"AP"</font> & rwIndex).<font color="blue">Select</font>
ActiveWorkbook.Names.Add <font color="blue">Name</font>:=<font color="teal">"request_item"</font>, RefersToR1C1:=Range(Selection.Address + <font color="teal">",A"</font> & rwIndex & <font color="teal">":"</font> & <font color="teal">"AP"</font> & rwIndex)