fetch data from oracle to excel and send the data which has same cell name to diff sheets

Following is the VB code to fetch data from oracle database to excel.

The COLLABNAME tab from table TABLE_NAME has 20 different collaboration names and I want to send the data corresponding to each collaboration to a different sheet starting from sheet1

Currently I am planning to write the same code 20 times and fetch data to different sheets and the code is shown below

CURRENT CODE:

Please Login or Register  to view this content.

just kept the code for only two COLLABNAMES

I want to add a loop which contains COLLABNAME1, COLLABNAME2, COLLABNAME3, COLLABNAME4 ...COLLABNAME20 so that the data that is fetched to 20 different sheets from the table TABLE_NAME which decreases the code length and be more elegant

The COLLABNAME is not in order like COLLABNAME1, COLLABNAME2... and are all different like COLLAB_Name, COLLAB_NAME_NAME2 , COLLAB_NAME2_NAME3....