VBS code cycle thru sheets doesn't work

Question

I am trying to cycle thru sheets to perform code. It works on the first sheet, but not the others. The code fails (stops) at the Set rngTarget expression.

For Each sheet In ActiveWorkbook.Worksheets
    If sheet.Index > 1 Then
        Set rngTarget = sheet.Range(Cells(1, 8), Cells(1, arrSize))

Answer 1

Try this:

Set rngTarget = sheet.Range(sheet.Cells(1, 8), sheet.Cells(1, arrSize))