Hide, unhide and make web queries

Hi,

I've a workbook with 20 web queries trough 4 sheets (total of 5 sheets but one doesn't have any queries). I needed a macro to change the URL based on cell contents , so I could change the data I was getting, but then I had to hide the queries cause they just dont look good (I have to leave too much space betweem them or they will overwrite each other) and for the macros to work properly , I have to unhide them, do what the macro does and them hide them again, but for this one macro its just not working. Follows the code (I've changed the URLs for privacy issues):
For character count issues I'll only post the code of 1 query per sheet for ther 3 mopst importante sheets and make these:

Please Login or Register  to view this content.

Into this :

Please Login or Register  to view this content.

Please Login or Register  to view this content.