Save Selected Sheets in another workbook

Wondering why I can’t do :

For i = 1 To ThisWorkbook.Sheets.Count
    If ThisWorkbook.Sheets(i).Name <> "DO NOT SAVE" Then ThisWorkbook.Sheets(i).Select Replace:=False
Next i

Selection.Copy

what would be the best way to save all sheets which does not match DO NOT SAVE name in another wb ?

>Solution :

Try this:

Sub Tester()
    Dim ws As Worksheet, arr(), i As Long
    ReDim arr(0 To ThisWorkbook.Worksheets.Count - 2)
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "DO NOT SAVE" Then
            arr(i) = ws.Name
            i = i + 1
        End If
    Next ws
    Worksheets(arr).Copy
End Sub