Need loop to run on specific sheets

[Lball]

How do i write the code to tell excel to perform same loop of data on specific sheets?

Mcode would apply to all worksheets. How do i loop this to run on each of the following named sheets? 102,104,114,118,203,204,401,703,802,901,902,903

Range("G26").Formula = "=Sum(G14:G25)"
Range("H26").Formula = "=Sum(H14:H25)"

thanks in advance!

 

[pboltonchina]

Try this

Sheets(Array("102","104","114","118","203","204","401","703","802","901","902","90")).

 

[BobUmlas]

Sub Answer()
For each x in array(102,104,114,118,203,204,401,703,802,901,902,903)
Sheets(x & "").Range("G26").Formula = "=Sum(G14:G25)"
Sheets(x & "").Range("H26").Formula = "=Sum(H14:H25)"
Next
End Sub

the reason for the X & "" is that when x is 102, this would be looking for the 102nd sheet, not sheet "102".

HTH

 

[schielrn]

Try something like:

Sub test()
For Each a In Array("102","104","114","118","203","204","401","703","802","901","902","903")
    With Sheets(a)
        .Range("G26:H26").Formula = "=Sum(G14:G25)"
    End With
Next a
End Sub

Also you can combine the fomrula part as it will increment it for you when it inputs it, so you have one less line of code.

Hope that helps.

 

[schielrn]

Sub Answer()
the reason for the X & "" is that when x is 102, this would be looking for the 102nd sheet, not sheet "102".

I believe you can also use:

sheets(cstr(x))

 

[Lball]

HI THANKS!

I have never used arrays and couldn't figure it out from my books. That did the trick, thank you again!

 

[schielrn]

Without using arrays, you could use if statements, but it is not as clean:

Sub test()
For Each sh In Worksheets
if sh.name = "102" or sh.name =  "104" or sh.name =  "114" or sh.name =  "118" or sh.name =  "203" or sh.name =  "204" or sh.name =  "401" or sh.name =  "703" or sh.name =  "802" or sh.name =  "901" or sh.name =  "902" or sh.name =  "903" then
    With sh
        .Range("G26:H26").Formula = "=Sum(G14:G25)"
    End With
Next sh
End Sub

Hope that makes sense.