VBA to Hide/Unhide Sheets based on a sheet name in the active cell.

[nitrammada]

Hello, does anyone know the code to hide / unhide very hidden sheets based on the name of the sheet that is in the active cell that i select? I have over 200 very hidden sheets, I don't just want to unhide all of them. I can generate a list of all the very hidden sheets but there are only 1 or 2 that I want to unhide and work on. When I'm finished I want to make the sheet very hidden again. From the list I have generated I would like to select the name of the very hidden sheet that I want to work on, then run a macro to make it visible. Similarly to do the same to make it very hidden again. Any thoughts would be greatly appreciated.

 

[nitrammada]

SoEasyBricsCAD Test07.xlsm
	Q	R
1	List all sheet names
2
3	List of Sheets	Go To Sheets
4	#1!10.9!5.1	#1!10.9!5.1
5	#1!10.9!6.1	#1!10.9!6.1
6	#1!10.9	#1!10.9
7	#1!10.9!1.1	#1!10.9!1.1
8	#1!10.9!2.1	#1!10.9!2.1
9	#1!10.9!3.1	#1!10.9!3.1
10	#1!10.9!4.1	#1!10.9!4.1
11	#1!2.9	#1!2.9
12	#1!2.9!1.10	#1!2.9!1.10
13	#1!2.9!2.10	#1!2.9!2.10
14	#1!2.9!2.10!1.1	#1!2.9!2.10!1.1
15	#1!2.9!3.10	#1!2.9!3.10
16	#1!3.9	#1!3.9
17	#1!3.9!1.10	#1!3.9!1.10
18	#1!4.9	#1!4.9
19	#1!4.9!1.10	#1!4.9!1.10
20	#1!5.9	#1!5.9
21	#1!5.9!1.10	#1!5.9!1.10
pSheet1

Cell Formulas
Range	Formula
Q4:Q21	Q4	=REPLACE(INDEX(MySheets,ROW()-3),1,FIND("]",INDEX(MySheets,ROW()-3)),"")
R4:R21	R4	=HYPERLINK("#'"&Q4&"'!B5",Q4)

To assist with my question above I have shown a partial list of my very hidden sheets, only the ones highlighted yellow are the ones I would like to make visible. Thanks in advance.