VBA instr function help

[anguschanch]

Hi, I am new to VBA.

My task is to copy all relevant worksheets into a new workbook. The name of the worksheets are stored in a worksheet called "Team list".
I don't know whats wrong with my code. Can someone save me please??

If Err.Number = 0 Then
For Each Worksheet In Worksheets
If InStr(1, Worksheet.Name, Worksheets("Team list").Range("A1").Value) > 0 Then
Worksheet.Select (False)
End If
If InStr(1, Worksheet.Name, Worksheets("Team list").Range("A2").Value) > 0 Then
Worksheet.Select (False)
End If
Next Worksheet
ActiveWindow.SelectedSheets.Copy
End If



PS. what is the purpose of the line saying if err.number = 0? (i just copy it from previous designer)

 

[cboshdave]

So, you only want to copy certain sheets over? Based on the name of the sheet? and whether the name is in a list? So, the list looks like A1: Sheet A, A2: Sheet B, A3: Sheet D, so, sheets named Sheet A, Sheet B and Sheet D would get copied because their names are in this list?

 

[anguschanch]

Thanks for ur reply
i want to copy worksheets based on their names and i got the required worksheets saved in another worksheet in "Team list".