Macro to copy sheet to named file based on cell value

[scarlett3]

Hi

I have a file that has worksheets numbered 1-100 as well as a first worksheet entitled 'Summ'.

I would like to automate the following process via a macro:

For each worksheet, if the Q2 cell value is 'En_Pr', this worksheet is copied to the En_Pr.xlsx file which is already open. For any worksheet that has a Q2 cell value not equal to 'En_Pr', no action is taken.​

It would save me a lot of time to be able to do this via a macro rather than manually.

Can anyone help?

TIA

 

[JLGWhiz]

Sub t()
Dim sh As Worksheet, wb As Workbook
Set wb = Workbooks("En_Pr.xlsx")
    For Each sh In ThisWorkbook.Sheets
        If sh.Range("Q2").Value = "En_Pr" Then
            sh.Copy After:=wb.Sheets(wb.Sheets.Count)
        End If
    Next
End Sub

 

[scarlett3]

Works perfectly. Thanks JLGWhiz!

 

[JLGWhiz]

Works perfectly. Thanks JLGWhiz!

You're Welcome,
regards, JLG