Creating a simplified version of existing ineffecient code.

[vexel77]

Hi,

I have 32 worksheets and use the following piece of code to cycle through them and refresh the web data contained within each sheet. I'd like to create a more efficient loop to perform this task

    Sheets("ARI").Select
    Range("T4").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("A1").Select
    Sheets("ATL").Select
    Range("T4").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("A1").Select
    Sheets("BAL").Select
    Range("T4").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("A1").Select
    Sheets("BOS").Select
    Range("T4").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("A1").Select
    Sheets("CHC").Select
    Range("T4").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("A1").Select
    Sheets("CWS").Select
    Range("T4").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("A1").Select
    Sheets("CIN").Select
    Range("T4").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("A1").Select
    Sheets("CLE").Select
    Range("T4").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("A1").Select
    Sheets("COL").Select
    Range("T4").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("A1").Select

Many thanks in advance