Invalid Next reference

[VBA_Noob002]

Hi Guys, I get an invalid Next control variable reference for the below code, please advise

Sub TRP()




Dim X As Long
Dim Y As Long




For X = 1 To 32
For Y = 1 To 32




With Workbooks("TB.xlsx").Worksheets("XM").Range(Cells(112, X + 2), Cells(112, X + 4)).Copy


End With




With Workbooks("HB.xlsm").Worksheets("XMR").Range(Cells(Y + 1, X + 3), Cells(Y + 1, X + 5)).Select
ActiveSheet.PasteSpecial Paste:=xlValues, Operation:=xlNone, Skipblanks:=False, Transpose:=False




End With


Next X
Next Y




End Sub

 

[RoryA]

Welcome to the forum.

You have to close the loops in the reverse order to how you started them, so your Next Y should be before the Next X.