Vba Loop not working

Where do you refer to the sheets by name?

the problem could be here because you refer to worksheets collection by item number, and in a meanwhile you delete some sheets changing collection items numbering:

Please Login or Register  to view this content.

try:

Please Login or Register  to view this content.

and have a look on the result after the code ended



Based on the above: just an idea - may be deleting bottom-up will help in your situation:

Please Login or Register  to view this content.

Try this, it will loop through all worksheets and see if there name appears on the list in column A on the 'Summary' sheet.

If a worksheet's name doesn't appear on the list it's deleted.

Please Login or Register  to view this content.

Can you upload an example workbook?

Click on GO ADVANCED and use the paperclip icon to open the upload window.

I assumed Summary would have been on the list.

Originally Posted by dahveedoff

...It just copies the names of the worksheets(even the hidden ones) and pastes them in A2 of the Summary sheet and moves downwards.

When I wrote: "have a look on the result after the code ended" - I ment that you shall compare "by eye" what your code was to compare here:

Please Login or Register  to view this content.

to let you made ammendments after you know what code really compares.

The code you posted now

Please Login or Register  to view this content.

does something else than described in the first post:

delete any visible worksheet that does not have its name equal to the values on the "Summary" worksheet.

it deletes all visible sheets except Summary, not looking at all into the content of Summary Sheet.

Anyway, I'm glad, it works as you want, and it's probably time to mark thread as SOLVED (if you need instructions how to do it - see forum rules)