Замена данных в одномерном массиве

[Jaroslav]

Всем привет. Вопрос по VBA в Excel. Мне нужно заменить данніе в одномерном массиве. Пишу такой макрос
Код:

arLinks = ActiveWorkbook.LinkSources(xlExcelLinks) 
    i = LBound(arLinks) 
    k = UBound(arLinks) 
    Sheets("Лист1").Range(Cells(100 + i, 1), Cells(100 + k, 1)) = Application.WorksheetFunction.Transpose(arLinks) 
    Range(Cells(100 + i, 1), Cells(100 + k, 1)).Replace What:=5, Replacement:=8, LookAt:=xlPart, _ 
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 
    arLinks = Sheets("Лист1").Range(Cells(100 + i, 1), Cells(100 + k, 1))

на строке
Sheets("Лист1").Range(Cells(100 + i, 1), Cells(100 + k, 1)) = Application.WorksheetFunction.Trans pose(arLinks)
работа макроса останавливается. Что я делаю не так?

[SAS888]

Если при выполнении данного макроса активным является лист "Лист1", то ошибки быть не должно (тогда и ссылку на лист указывать не требуется). В противном случае, ссылку на лист необходимо делать при каждом обращении к ячейке. Так, например, в строке Вашего кода

Sheets("Лист1").Range(Cells(100 + i, 1), Cells(100 + k, 1)) = Application.WorksheetFunction.Transpose(arLinks)

получается, что обращение к диапазону на листе "Лист1" задается ячейками другого (активного) листа. Что недопустимо. Правильно нужно записывать так:

With Sheets("Лист1")
        .Range(.Cells(100 + i, 1), .Cells(100 + k, 1)) = Application.WorksheetFunction.Transpose(arLinks)
    End With

Обратите внимание на "точку" в конструкции "With".

[Jaroslav]

Спасибо, SAS888.