I tried this by deleting everything that I had and copying and pasting yours
in and I got a "Run time error '9' subscript out of range" and when I tried
to debug it it highlighted the following part of the code in yellow:

Worksheets(NextSheetName).Visible = True

Not sure what to do next? All your help is greatly appreciated. I also
tried another way of easeing this problem of mine yesterday by creating a
Table of Contents with Hyperlinks, but the links wouldn't work after I hide
the sheets I didn't want see/use until they had to. So I don't know the best
way to solve my problem i need to do this to 5 other sheets so a grand total
of 30 sheets :(

Thanks again Roxy!