Best way to keep parameters associated with Listobject query table?

Question

I'm working to establish a standard approach to retrieving data from SQL server databases into Excel based applications.  My current proposed structure allows for exactly one Listobject with a query table per sheet in a workbook.  The connection
strings and SQL texts for all queries in the workbook are kept in a single table on its own (hidden) sheet.  Each "Datasheet" then has a table and named cells QueryName, ConnectionString and SQLText which are scoped at the sheet level.  The
connection string and raw SQLText are retrieved from the table using QueryName as an lookup value into the QueryTable.  There are a series of parameter cells whose values are inserted into the SQL text using =Substitute() formulas, where the raw query
text has #P1#, #P2#, etc, which are subsituted with the parameter values from the parameter cells to assemble the final query text in the named cell SQLText.  To refresh the application, a simple VBA Sub iterates through all the sheets in the workbook.
 If the sheet contains a ListObject with a Querytable, then ConnectionString and SQLText are written to the .Connection and .CommandText properties of the QueryTable and the table is refreshed.
This works great, but I have a developer who has asked to be able to put multiple Listobjects with querytables on a single sheet so he doesn't need so many sheets in the workbook.  My first though was why do you care how many sheets you have, but on
the other hand a single sheet can certainly handle more than one ListObject, so... 
If you're still with me, THANKS!  Here's the question.  If I have more than one ListObject on a sheet, I'll need a ConnectionString and SQLText cell for each one.  How do I keep them associated?  I could require the developer to name
them ConnectionString1/SQLText1, ConnectionString2/SQLText2, etc. and then expect that ListObject(1) goes with ConnectionSTring1/SQLText1, etc. but I'm not sure that the ListObject index numbers will stay constant.  I could somehow link to the table name,
but that can be changed...  Any ideas?  If this is too general a question, feel free to ignore.
Thanks,
J

Answer 1

 I could somehow link to the table name, but that can be changed...  Any ideas?
Not sure if this will help or not but maybe a little from several areas might point you in the right direction.
If you are concerned about users changing the table name then you can define a name to reference the table and then if the user changes the table name then the Refers to automatically changes to the new table reference but your defined name remains the same.
However, if users want to break a system even when you think you have it bullet proof the users come along with armour piercing bullets.
Example:
Insert a table (say Table1)
Go to Define a name and insert a name of choice (eg.  ForMyTab1)
Then click the icon at the right of the Refers to field and select the entire table including the column headers and it will automatically insert something like the following in the Refers to field.
=Table1[#All]
Now if a user changes the table name then Table1 will also automatically change.
Example code to to reference the table in VBA.
Sub Test()
    Dim wsSht1 As Worksheet
    Dim lstObj1 As ListObject
    Set wsSht1 = Worksheets("Sheet1")
    Set lstObj1 = wsSht1.ListObjects(Range("ForMyTab1").ListObject.Name)
    MsgBox lstObj1.Name
End Sub
Regards, OssieMac