Как создать al oop, чтобы открыть несколько рабочих книг со значением ячейки на листе в качестве имени файла, скопировать и закрыть рабочую книгу

Question

Я надеюсь, что кто-то может мне помочь. Я пытаюсь создать al oop, чтобы открыть разные рабочие книги. Идея состоит в том, что у каждой книги есть имя файла, которое будет вызываться на основе значения, найденного в ячейке B1. Я могу это сделать - открыть, скопировать и вставить (указать c диапазон) в MainWorkbook, но он только копирует ссылку, найденную на 1-м листе, а не те, которые находятся на листах 2, 3 и т. Д. c. Я не уверен, что вопрос ясен, но в основном каждый лист имеет различное значение в ячейке B1, которое соответствует файлу на моем общем диске. У меня нет ошибок или чего-то еще, но иногда Excel просто показывает серый. Пока что у меня ниже:

Sub OpenSesamé()

On Error Resume Next
Application.AskToUpdateLinks = False
Application.EnableEvents = False
Application.DisplayAlerts = False

Dim MainWrbk As Workbook
Dim starting_ws As Worksheet
Dim varCellValue As String
Set MainWrbk = ThisWorkbook
    varCellValue = Range("B1").Text

    i = 1
    Sheets(i).Select


    Do
        Workbooks.Open "\\Shared_Drive\" & varCellValue & ".xlsx"
        ActiveWorkbook.Sheets("30 MINUTES INTERVAL").Select
        Range("A3:H51").Copy
        MainWrbk.Activate
        Range("C4").PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
        ActiveWindow.ActivatePrevious
        ActiveWorkbook.Close

        i = i + 1
        Sheets(i).Select

    Loop Until ActiveSheet.Name = "Summ"


End Sub

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