VBA for sheet formatting

Hello

I have set of queries tables in same sheet in same columns range
Looking to have code in sheet activate event after refresh all queries to add title for each table and formatting:
1 - for each table in sheet, add one row above the table header
2 - Write in the new row, the name of the table in excel
3 - formatting the new row, merge B:D and text alignment center across selecting, Black Bold font, row height 30

there is result sample in the attachment
note: the code should work even if I add or delete a table

Good Job!
I face one problem and the title will duplicate when I reopen the sheet few times, solution is to delete entire row above the table header before update queries (only first row above the header)

Please Login or Register  to view this content.

A little different

Please Login or Register  to view this content.

Artik

Next modification:

Please Login or Register  to view this content.

Artik

Only this is the different ?

Please Login or Register  to view this content.

No.
Look harder.

Artik

Cool!
I am trying to do this, but its says error 424 object required

Please Login or Register  to view this content.

You should use RowHeight, not Height.

Artik

What If I want write query table name rather than table name?

Maybe

Please Login or Register  to view this content.

Artik

Cool!
its get the query name but its write before the name "Query - "
mean if the query name "T1" its paste Query - T1"
Kindly remove "Query - "

Perhaps, just change the content of the function:

Please Login or Register  to view this content.

Artik

Thanks Again!