repeat procedure on three sheets

[288enzo]

I have a bit of code that I need to use with Sheet1, Sheet2, and Sheet3.
Is there a more efficient way of doing it without having to select each sheet individually?

Thank you

    Sheets("Sheet1").Select
    Range("B4:E20").Copy
    Range("B4:E20").PasteSpecial Paste:=xlPasteValues
    Columns("F:Q").Delete
    Select Case strArea
    Case 83
    Rows("20").Delete
    End Select
    Sheets("Sheet2").Select
    Range("B4:E20").Copy
    Range("B4:E20").PasteSpecial Paste:=xlPasteValues
    Columns("F:Q").Delete
    Select Case strArea
    Case 83
    Rows("20").Delete
    End Select
    Sheets("Sheet3").Select
    Range("B4:E20").Copy
    Range("B4:E20").PasteSpecial Paste:=xlPasteValues
    Columns("F:Q").Delete
    Select Case strArea
    Case 83
    Rows("20").Delete
    End Select

 

[GWteB]

You are welcome & good luck!

 

[288enzo]

You are welcome & good luck!

Thanks, and I figured it out. I don't know why but it had something to do with the flow. I moved a few things around and it works perfectly, thanks to your help.

I simply put both at the end.

    For Each Sht In Array("Sheet1", "Sheet2", "Sheet3")
        With Sheets(Sht)
        .Range("B4:E20").Value = .Range("B4:E20").Value
        .Columns("F:Q").Delete
        End With
    Next
    Select Case strArea
        Case 82, 83, 84
    For Each Sht In Array("Sheet4", "Sheet5", "Sheet6")
        With Sheets(Sht)
        .Range("B4:E20").Value = .Range("B4:E20").Value
        .Columns("F:Q").Delete
        End With
    Next
    End Select

 

[GWteB]

Thank you for keeping me posted and remember: it's always about the flow ...