Как l oop через список значений ячеек и применить одно значение к каждому листу в файле рабочего листа Excel

Question

Скажем, у меня был список значений ячеек, длина которых точно соответствовала количеству листов в моем файле Excel

Как мне oop через список изменить значение G1 каждого листа в порядок?

IE, если бы список значений был 1,2,3, тогда первый лист имел бы g1 = 1, лист 2 имел бы g1 = 2 et c.

Вот что Я пробовал до сих пор

Выдает ошибку времени выполнения 91: переменная объекта или переменная блока не установлена ​​

Sub Test1()
      Dim x As Integer
      Dim myCellSetValue As Range
      NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
      Range("A2").Select
      For x = 1 To NumRows
         Set myCellRangeSetValue = ThisWorkbook.Worksheets(1).Range("G1")
          myCellSetValue.Value = ActiveCell.Value
         ActiveCell.Offset(1, 0).Select
      Next
   End Sub

Answer 1

Вот исправленный код, который я в итоге использовал:

Sub WorksheetLoop()
    Dim WS_Count As Integer
    Dim I As Integer

    WS_Count = ActiveWorkbook.Worksheets.Count
    For I = 1 To WS_Count
        ActiveWorkbook.Worksheets(I).Range("G1") = Worksheets("ABI-BE").Cells(I, 19)
    Next I
End Sub