Sorting problem:(

Hi again.I am a new member who joined few weeks ago.Well first I would like to say thank you to those who willing to give some help or tips. Here is my problem.

I have a workbook with loads of tabs/sheet name. I decided in one sheet to review all tabs name that links to each tabs and one button named "refresh". What I am trying to do is to sort it out on ascending order(without changing the position of tabs in a workbook),Well on this sheet that reviews all sheet name it has 4 columns and named it.Tabs(A),Description(B),In charge(C) and Department(D).

I used to record a macro that sort it out in ascending order well it works fine when I copy the code of macro inside my vba code in refresh button. It sorts out all sheet name in column A,but whenever I hit refresh B,C,D trying to sort randomly it means they are losing their position that describe the sheets name in Column A.Aside from that when I hide a one sheet.the last sheet name on my review tabs duplicates

For your convinience here is a sample code.tried to hide one sheet.and it duplicates the last sheet name.Thanks for helping me a bit

About your sorting issue, when you create the tab's list, the other columns are not updated and get mixed right there.
When you sort with another column then A, your tab's list is first updated then the table is sorted about another columns which is not updated.and get mixed.

I see that is why it mixed.No possible solution for this?