Run-time error '1004' VBA

[mrtom25]

Hi,

I am getting a "Run-time error '1004' Application-defined of object-defined" error when running this, and was wondering if you could help.

The part of the code that gets highlighted upon debugging is this:

"Worksheets(i).Range(Cells(FindRowNumber, 1), Cells(FindRowNumber + 16, 2)).Copy"

and this is the code surrounding that:

"J = ThisWorkbook.Worksheets.Count

For i = 6 To J - 3

Dim Worksheet_name As String
Dim FindRow As Range
Dim FindRowNumber As Integer

Worksheet_name = Worksheets(i).Name

With Sheets(i).Range("A1:A1000")
Set FindRow = .Find(What:="PAYMENT SCHEDULE", LookIn:=xlValues)
End With

If Not FindRow Is Nothing Then
FindRowNumber = FindRow.Row


Worksheets(i).Range(Cells(FindRowNumber, 1), Cells(FindRowNumber + 16, 2)).Copy"

Let me know if you have any questions. I hope someone can help

Thank you kindly,

Tom.

 

[VoG]

Try fully qualifying the range

Worksheets(i).Range(Worksheets(i).Cells(FindRowNumber, 1), Worksheets(i).Cells(FindRowNumber + 16, 2)).Copy

 

[pgc01]

Hi

Peter already corrected you statement: When you specify a range all the range objects must be in the same worksheet.


This would be an alternative way to do the copy:

Worksheets(i).Rows(FindRowNumber).Resize(17, 2).Copy

 

[mrtom25]

Thank you very much both. I knew it would be something straightforward.

Kindest Regards,

Tom.