Show / Hide Sheets based off a cell input

I've seen several ways to hide sheets based off a determined value. The way I have been doing it is like the following:

Please Login or Register  to view this content.

This is clearly cumbersome and could be polished up with a loop. I am not skilled enough ... yet ... to put this code together. Can someone give me a hand in doing this? The spark for this thread came from my code being too long when trying to introduce 40 sheets and the code not executing at all.

Thanks in advance

Evan

Please Login or Register  to view this content.

Thanks patel45. It perfoms the function as intended, but it keeps giving me a "Run-time error '9': subscript out of range" message. The debugger goes to this lines: "Sheets(sheetname).Visible = False". Is this something on my end with the master spreadsheet or is this code related?

I think part of it may be that I have two spreadsheets titled "master" and "index". The code that states "for i=j to ThisWorkbook.Sheets.Count" would return a count 2 + higher than the CofA sheets that I want to hide.

I made a minor alteration to the code to account for these two pages. The completed code is below:

Please Login or Register  to view this content.

Again, thanks Patel45.