Loop thru range to select value for named cell and then run a series of macros until the end of the list

[JohnSawers]

I have a series of macros (MySQL selections) to pull data into and out of a workbook when I select a stock ticker from a drop down menu. On an individual basis this works fine. I am trying to automate this with a loop macro, but without success. In my current code below, I am trying to loop thru a list of stock ticker symbols (from column "A2"), then assign the next value in that list to the named cell called "stock_ticker". The stock identifier in this named cell ""stock_ticker" is used by the "MySQL_Get_data1-8" macros to identify the correct stock information to download, so the loop ought then to process a new stock as it runs down the list until the end. So much for theory however! Start code here: Sub Loop_data1() ' start of list of stock tickers Range("A2").Select 'Set Do loop to stop when an empty cell is reached Do Until IsEmpty(ActiveCell) 'Code inserted here Dim stock_ticker As String ' "stock_ticker" is a named cell on sheet that I want changed with the loop stock_ticker = Range("stock_ticker") ' to change value of this named cell to the next Range("Stock_ticker") = ActiveCell.Value ' name of macros I want run with the new stock_ticker value MySQL_Get_data1 MySQL_Get_data2 MySQL_Get_data3 MySQL_Get_data4 MySQL_Get_data5 MySQL_Get_data6 MySQL_Get_data17 clickcmd 'Step down 1 row from present location ActiveCell.Offset(1, 0).Select Loop End Sub End code here the macro appears to run some of the macros but does not loop thru the different stock_tickers in the list. I have tried putting below the code above the "Do until .. line, but still with no success: Dim stock_ticker As String stock_ticker = Range("stock_ticker") Range("Stock_ticker") = ActiveCell.Value Can anyone please help?

<tbody>
</tbody>