It gives me an application error

Always good to be very specific (the text of the error message, not just its
number)

Have you set a value for TheCol? If not it's 0 which is not a valid column
number.

--
Jim
"Brad" wrote in message
...
| Thanks for taking the time to read my question.
|
| I have 2 sheets and am on the first one. The Second one "qcust" has my
data
| on it and I want to go through it row by row until there is no data left.
|
| Why can't I do this? It gives me an application error
|
| Do Until Worksheets("qcust").Cells(TheRow, TheCol) = ""
|
| Here is the full code.
|
| Sub MergeAndPrint()
| Dim TheRow As Integer
|
| TheRow = 2
|
| Worksheets("qcust").Select
|
| Do Until Worksheets("qcust").Cells(TheRow, TheCol) = ""
| Range("D3") = Sheets("qcust").Cells(TheRow, 2).Value
| Range("D4") = Sheets("qcust").Cells(TheRow, 3).Value
| Range("D8") = Sheets("qcust").Cells(TheRow, 1).Value
|
| TheRow = TheRow + 1
| Loop
|
| MsgBox "Complete"
|
| End Sub
|
| Thanks,
|
| Brad