VBA Convert from Array to Non-Array

[rsmeyerson]

I'm looking for some help converting code from array to non-array. I was using Lbound to Ubound with the array. Can you please help adjust this code so that it works in this new format? Thanks for your help with this.

    If sh.Name = "Closer" Or sh.Name = "Mario" Or sh.Name Like "Fin*" Then        With sh
        For i = LBound To UBound
        'With Worksheets(wSht(i))
            .Columns("E").Insert
            .Columns("F").Copy .Columns("E")
            .Columns("E").Replace "New Total", "#N/A"
            On Error Resume Next
            For Each c In .Columns("E").SpecialCells(2, xlErrors)
                c.Offset(1, 0).PageBreak = xlPageBreakManual
            Next c
            .Columns("E").Delete
        'End With
        On Error GoTo 0
        Next i
        Application.ScreenUpdating = True
        End With
    End If

 

[StephenCrump]

If you take out the For .. Next loop, i.e. the two lines:

For i = ...
Next i

does your code do what you want it to?

 

[rsmeyerson]

Yes. That worked. Thanks very much for your help.