I have changed the way I do this, and instead of using the code ...
For Each myRow In Range("A17:N23").Rows
For Each myCell In myRow.Rows
Print #myFile, myCell.Value <<< Error occurs here
Next myCell
Write #myFile,
Next myRow
... I am using ...
For myRow = 17 To 23
For myColumn = 1 To 14
myCell = Trim(Cells(myRow, myColumn).Value)
Print #myFile, myCell
Next myColumn
Print #myFile,
Next myRow
This works perfectly !