Worksheet range in a worksheet array

[ChesterKaup]

I have a worksheet array and would like to reference the same ranges on each worksheet to do some various thinks on each worksheet as I loop through them. My code fails on the range statement and I am unsure what to do. The .columns statement works fine. Below is the code. Thanks for any help.

For I = 0 To UBound(WorkSheetNames)
With Worksheets(WorkSheetNames(I))
.Columns("G:G").ColumnWidth = 10
.Range("N9:AM9").Select
.Selection.AutoFill Destination:=Range("N9:AM800"), Type:=xlFillDefault
.Range("N2").Select
.Range("N2").Formula = "=AVERAGEIFS(AF9:AF480,AF9:AF480,"">0"",A9:A480, ""<"" &N2)"
.Range("N3").Select
.Range("N3").Formula = "=AVERAGEIFS(AF9:AF480,AF9:AF480,"">0"",A9:A480, "">"" &N2)"
End With
Next I

 

[Tetra201]

See if this works for you:

Dim ws As Worksheet
For Each ws In Worksheets
    With ws
        .Columns("G:G").ColumnWidth = 10
        .Range("N9:AM9").AutoFill Destination:=.Range("N9:AM800"), Type:=xlFillDefault
        .Range("N2").Formula = "=AVERAGEIFS(AF9:AF480,AF9:AF480,"">0"",A9:A480, ""<"" &N2)"
        .Range("N3").Formula = "=AVERAGEIFS(AF9:AF480,AF9:AF480,"">0"",A9:A480, "">"" &N2)"
    End With
Next

 

[Norie]

Try this.

For I = 0 To UBound(WorkSheetNames)
    With Worksheets(WorkSheetNames(I))
        .Columns("G:G").ColumnWidth = 10
        .Range("N9:AM9").AutoFill Destination:=.Range("N9:AM800"), Type:=xlFillDefault
        .Range("N2").Formula = "=AVERAGEIFS(AF9:AF480,AF9:AF480,"">0"",A9:A480, ""<"" &N2)"
        .Range("N3").Formula = "=AVERAGEIFS(AF9:AF480,AF9:AF480,"">0"",A9:A480, "">"" &N2)"
    End With
Next I

 

[ChesterKaup]

Thanks everyone for your code examples. Got it working.