Move the Sheets to New workbook Excluding SomeFiles

[K Raghavender rao]

Hi All,

Hope everyone is fine.

I have 200 excel sheets in one workbook with named as Mail 1,2,3.....198 and two sheets are name as "Run" and "Macro_Time_Analysis_Sheet". I am trying to move the sheets (200 sheets) to new workbook excluding "Run" and "Macro_Time_Analysis_Sheet". Can some one please help in providing macro code.

Thanks,
K.Raghavender rao

 

[Debraj]

Hi Raghavender ,

Try this..

Sub MoveSelectedSheet()
Dim arrsheet() As String
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Run" And Sheets(i).Name <> "Macro_Time_Analysis_Sheet" Then
        ReDim Preserve arrsheet(0 To k)
        arrsheet(k) = Sheets(i).Name
        k = k + 1
    End If
Next i
If k <> 0 Then Sheets(arrsheet).Move
End Sub