Run time error 1004

[Sherifa]

PasteSpecial METHOD OF RANGE CLASS FAILED

Sub Testing()
Dim Wkb As Excel.Workbook
Dim ws As Sheets
Dim ws_count As Long
Dim i As Long
Dim j As Integer
Dim k As Integer


Set Wkb = ThisWorkbook
Set ws = ThisWorkbook.Worksheets


ws_count = Wkb.Worksheets.Count




'Begin loop
    For i = 1 To 10


            Call RandNumberGen
            Call SimulatedPath
            
            Sheet6.Calculate
            Sheet7.Calculate
            Sheet8.Calculate
            Sheet9.Calculate
            Sheet10.Calculate
            
            


            For j = 1 To 10
    
    


                 For k = 3 To 13
    
            
                    Sheet11.Range("A1:C12").Copy
                    
                    Sheet11.Range(Cells(1, j + 5), Cells(12, k + 5)).PasteSpecial xlPasteValues
                    
                    'Paste Step Column by 5


        Next k


    Next j
Next i


Sheet11.Calculate


End Sub

 

[Sherifa]

It maybe that your sheets arn't being fully calculated, before the paste happens.
However as I rarely use much in the way of formulae, I cannot be sure of that & don't how how to get round it.

Hi, you are right.

After following the steps manually, i realised I needed to calculate Sheet 11 before pasting as well, because everything was set to Manual.

Thank you for all your help!

 

[Fluff]

Glad to help & thanks for the feedback