Exclude worksheets from loop with a list

Question

I'm collecting data on the first worksheet by iterating over all of my worksheets in a loop. A list of worksheets that are defined by their names in a list on the first worksheet is what I now wish to omit.

I could do so one by one as follows:

dim ws as worksheet
For each ws in ThisWorkbook.Worksheets
If ws.Name <> "Sheet1" and ws.name <> "Sheet2"

and so on.

BUT Since the data will change in the future I don't want to edit this code every time the "exclude-list" changes.

Answer 1

You can achieve this by making a sheet called Exclude. Write Exclude on the first line of column A. Your other sheets should be removed next. Use the code below to finish.

Dim Lastrow As Integer
Lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

Set rs = ws.Range("A1:A1" & Lastrow)


For Each ws In ThisWorkbook.Worksheets
    If Not rs.Find(ws.Name) Is Nothing Then
        'Your code
    End If
Next