Hi,
I think this is what you are describing you want:
Code:
Sheets("North Data").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("South Data").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Worksheets(Worksheets("Criteria").Range("M4").Value).Select
I'm assuming that
Criteria is the name of your 'home page' and that the cell Criteria!M4 contains a valid worksheet name. I'm also assuming that you want to select/activate the worksheet specified in Criteria!M4. If your 'home page' is named something else then you'll need to amend the string in red accordingly.
Hope that helps...