Exclude Hidden Sheets/"Home" Sheet when creating hyperlinks

Good morning all. I have a workbook I've been developing that will be used to track rental equipment for my company. First of all, I know just enough about vba to get me in trouble. I can't really write the codes, but I'm usually able to pull them from forums and modify them for my application. I have a macro that pulls information from a specific range on all active sheets and pastes it onto the "Home" sheet as a form of summary. The problem I'm having is that I also have a macro to create hyperlinks on the "Home" tab to quickly navigate to the associated sheet, but I can't get this macro to exclude hidden sheets and the "Home" sheet; you can see where I have these two filtered out in SummarizeSheets, but I can't get it to do the same in AddHyperlinks. I know this shouldn't be a difficult fix, but it's seemingly above my head. If anyone can shine some light on it for me, I would be greatly appreciative. If you need any other information or the workbook itself uploaded, just let me know. The code I'm currently using is below:


Sub SummarizeSheets()

Please Login or Register  to view this content.

Welcome to the forum.

You employ two loops one to copy the data and this has the two filters to ignore hidden and home sheet and a seemingly superfluous loop to go back through and do the hyperlinks.

I suggest you forget the second loop and just do it all in one.

Something like this.......

Please Login or Register  to view this content.

but you might need to post an example workbook so we can get the references right

tidying up the references try replacing the top of your code with ...

Please Login or Register  to view this content.

All you need to do is write

SummarizeSheets

before End Sub

in the GotoFirstSheet macro.

whoops sorry put SummarizeSheets before exit sub - about half way down

Please Login or Register  to view this content.