move sheets to a new wb w/ criteria

[gerald24]

Hi Guys,

I need ideas on how to move sheets from 1 db based on a criteria in 1 sheet to a new wb. Below is my code.
The challenge with the below code is it is not sustainable, if there's a new condition, I would copy over the whole code to create another If and Then command. Thanks!

Option Explicit
Sub movesheets()

If Sheets("A").Range("A1").Value Then 'A1,A2,A3,A4,A5.... value is true or false.
    Worksheets(Array("A", "B", "C", "D", "E", "F", "G", "H", "I")).Copy 'Based on the conditions in Sheet A, Cells A1 to A5....,
        Set wbNew = ActiveWorkbook
Else
    Worksheets(Array("B", "C", "D", "E", "F", "G", "H", "I")).Copy 'for example removed A
        Set wbNew = ActiveWorkbook


End Sub

 

[gerald24]

up