Не назначает имена диапозонам

[ViaVia]

Добрый день, в общей таблице нужно найти последовательно ячейки по части текста в первой колонке и создать диапазоны (как-то их "запомнить", потом каждый из них обрабатывать..), я решила их "запоминать" присвоив имена, но имена почему-то не присваиваются ( что не так? помогите, плз

irow = Range("A3").SpecialCells(xlLastCell).Row
icolumn = Range("A3").SpecialCells(xlLastCell).Column

K = 1

Set D = Columns(1).Find(what:="Marker for search", LookIn:=xlValues, searchdirection:=xlNext, lookat:=xlPart)
    If Not D Is Nothing Then
        FirstI = D.Address    'адрес для цикла
        Set FRange = D   'первая ячейка диапазона
        
            Do
                Set D = Columns(1).Find(what:="Marker for search", after:=D, LookIn:=xlValues, searchdirection:=xlNext, lookat:=xlPart)
                    If Not D Is Nothing Then
                        FollowI = D.Address     'адрес для цикла
                        Set EndRange = D     'последняя ячейка диапазона
                                                
                        If FollowI = FirstI Then          ' последний диапазон
                            Set PodRange = Range(FRange, Cells(irow, icolumn))
                            Names.Add Name:="part" & K, RefersTo:="=PodRange.Address", Visible:=True
                        
                        Else
                            Set PodRange = Range(FRange, EndRange.Offset(-1, icolumn - 1))
                            Names.Add Name:="part" & K, RefersTo:="=PodRange.Address", Visible:=True
                            K = K + 1
                            Set FRange = EndRange
                        End If
                    End If
            Loop While FollowI <> FirstI
    End If
G = K
K = 1
For f = 1 To G     'проверка имен диапазонов
NameM = "part" & K
Range(Names(NameM)).Select
K = K + 1
Next

если я вручную присваиваю имя, имя видно и находит, а через код - нет ((

[DiemonStar]

Names.Add Name:="part" & K, RefersTo:="=PodRange.Address", Visible:=True

попробуйте сделать так:

Names.Add Name:="part" & K, RefersTo:=PodRange.Address, Visible:=True

[ViaVia]

не хочет (, не присваивает

[ViaVia]

может быть, диапазоны можно задать не с помощью имён, а другим способом?
задать диапазоны с использованием номера не получается, выдает ошибку

set PodRange & K = Range(FRange, Cells(irow, icolumn))

может быть как-то с помощью массивов?
есть идеи?
заранее очень благодарна за ответы, я просто полный "чайник"
как массив написать, не смогла найти, а как из него потом вытаскивать диапазоны для обработки, нет представления совершенно

[DiemonStar]

не посмотрел хэлп по функции. правильно вот так:

Names.Add Name:="part" & K, RefersTo:= "=" & PodRange.Address, Visible:=True

а править сам цикл без данных не очень получится...

[ViaVia]

DiemonStar, огромное спасибо, все получилось.

буду стараться разбираться с хелпом, пока честно говоря, не очень получается.., вообщем, есть над чем работать