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
Is there a more efficient way of doing it without having to select each sheet individually?
Thank you
VBA Code:
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