I am creating a workbook to analyze potential stock investments.  I now have 10 macros that create a query and return data to the workbook from 10 unique URLs, each URL uses the company's stock symbol as part of the URL, such as

http://finance.yahoo.com/q/ae?s=IT

where IT is the stock symbol.

What I would like to do is enter a stock symbol in cell E5 on a worksheet called "Ratings", and then run a macro that runs the 10 individual macros mentioned above, as well as several other procedures to generate the analysis.  

Each of the 10 macros are the same except for the URL.  

Thanks for your help
Below is a copy of one of the macros:

Sub majorholders()
'
' majorholders Macro
' Macro recorded 10/18/2004 by Michael J. Palma
'


'
'Setup worksheet

    Sheets("majorholders").Select
    Cells.Select
    Selection.clear
    Selection.QueryTable.Delete
   
'    Range("A:A,B:B").Select
'    Range("B1").Activate
'    Selection.Delete Shift:=xlToLeft
'    Range("A1").Select
'    Selection.EntireColumn.Insert
'    Selection.EntireColumn.Insert
    Range("A1").Select

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://finance.yahoo.com/q/mh?s=IT", Destination:=Range("A1"))
        .Name = "mh?s=IT"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "yfncsumtab"
'        .WebTables = "25"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub