winon
08-13-2019, 03:15 AM
I found this Code in this Forum, and I was hoping that someone could help me change it to paste Values.
Sub CopySheets()
' stanleydgrom, 12/02/2009
Dim MySheets As Variant, LR As Long, NR As Long, a As Long
MySheets = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
Application.ScreenUpdating = False
NR = 2
For a = LBound(MySheets) To UBound(MySheets)
With Sheets(MySheets(a))
LR = .Cells(Rows.Count, "V").End(xlUp).Row
.Range("C10:V" & LR).Copy Sheets("Summary").Range("A" & NR)
End With
NR = NR + LR - 10 + 1
Next a
Sheets("Summary").Select
Application.ScreenUpdating = True
End Sub
Thank you in advance.
Sub CopySheets()
' stanleydgrom, 12/02/2009
Dim MySheets As Variant, LR As Long, NR As Long, a As Long
MySheets = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
Application.ScreenUpdating = False
NR = 2
For a = LBound(MySheets) To UBound(MySheets)
With Sheets(MySheets(a))
LR = .Cells(Rows.Count, "V").End(xlUp).Row
.Range("C10:V" & LR).Copy Sheets("Summary").Range("A" & NR)
End With
NR = NR + LR - 10 + 1
Next a
Sheets("Summary").Select
Application.ScreenUpdating = True
End Sub
Thank you in advance.