Error 438. Excel VBA cells() = Excel.range()

[help_for_excel]

I have a code which is giving me error.

(It is part of larger code)

Dim XData As Excel.Range
Dim nRow AS long
Dim nCol As long
.....
.....
For nRow = 1 To XData.Rows.Count
For nCol = 1 To XData.Columns.Count
.Cells(nRow, nCol) = XData.Cells(nRow, nCol)


When I de-bug code line by line, it gives error 438: Object doesn't support this property or method.

Help is much appreciated.

 

[BiocideJ]

Dim XData As Excel.Range
Dim nRow AS long
Dim nCol As long
.....
.....
For nRow = 1 To XData.Rows.Count
For nCol = 1 To XData.Columns.Count
.Cells(nRow, nCol) = XData.Cells(nRow, nCol)

At first blush, it is missing an object before .Cells in the last line.

Perhaps there is a With declaration above, but if not you will need to put something before .Cells whether it be Activesheet or XData (not sure what this is defined as), or something else.

 

[Norie]

You have .Cells but nothing in front of it.

Is it associated with a worksheet/range via a With?