Problem executing multiple cut and paste operations in VBA

[stacyg]

I have a workbook with 40 or so tabs in it. 30 of the tabs are for scorecards and 10 are for feeder data and charts. The workbook is essentially a Supplier Scorecard. The code I wrote gives me no compile errors, however it is not changing all of the sheets. I am fairly new to VBA so I am sure it is me not understanding my error, but with no error message its hard to define.

Essentially I want to take the results in AJ1:AT17 and paste special values into AI1:AS17 (moves the data over a month for context).

Also note that I have formulas in column AT that I need to leave as an FYI after the copy and paste function is complete.


Sub Copyandpastetbleover1month()
Worksheets("AGD").Activate
Worksheets("DevaDDD").Activate
Worksheets("Ame").Activate
Worksheets("Axidr").Activate
Worksheets("BD").Activate
Worksheets("CC").Activate
Worksheets("Chdler Ar").Activate
Worksheets("Circr").Activate
Worksheets("Crtion").Activate
Worksheets("Dynamic").Activate
Worksheets("Epo").Activate
Worksheets("Fu").Activate
Worksheets("Linear").Activate
Worksheets("IBX").Activate
Worksheets("IKM").Activate
Worksheets("JIT").Activate


Range("AJ1:AT17").Copy Range("AI1")

End Sub

Sub PasteValues()
Worksheets("AGD").Activate
Worksheets("DevaDDD").Activate
Worksheets("Ame").Activate
Worksheets("Axidr").Activate
Worksheets("BD").Activate
Worksheets("CC").Activate
Worksheets("Chdler Ar").Activate
Worksheets("Circr").Activate
Worksheets("Crtion").Activate
Worksheets("Dynamic").Activate
Worksheets("Epo").Activate
Worksheets("Fu").Activate
Worksheets("Linear").Activate
Worksheets("IBX").Activate
Worksheets("IKM").Activate
Worksheets("JIT").Activate

With Range("AI1:AS17")
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
End Sub

 

[stacyg]

Never mind, I finally found the error and corrected it myself and it now works. Thanks anyway!