Keep sheets based on color and copy paste as values. Delete the remaining ones

I have the following macro that should keep the tabs that have a specific color, turn them to values and delete all the other. The color part works in another macro that I use to PDF the sheets but not here. The second For works as well. But put together, the workbook freezes and nothing happens. Can someone point me in a direction about it?

Please Login or Register  to view this content.

wsColor(0) is never set so will probably equal zero which won't match any sheets. Perhaps you need somewhere:

Please Login or Register  to view this content.

Probably after the line that sets wsNames(0).

WBD

Oh, I cleaned the macro and removed that line by mistake. I already have it my actual file set, but unfortunately it still not works.

Can you redact the data and attach a copy of the file? Would probably be trivial to diagnose then but almost impossible without having a copy of the file.

WBD

In case someone will find this thread, here is a solution. Not sure why I overcomplicated the problem.

Please Login or Register  to view this content.