Dave,

Range doesn't take numeric values, only strings. Cells uses row/col
numbers.

Use:
Worksheets("A").Cells(iCurRow, 1).Value = strCurID

HTH,
Bernie
MS Excel MVP

"davegb" wrote in message
oups.com...
I'm copying the contents of a cell in Sheet "B" to a cell in Sheet "A",
but the program hangs when I try to put the value in "A". The command
I'm using is:

Worksheets("A").Range(iCurRow, 1).Value = strCurID

The iCurRow value checks out correctly, as does the strCurID. What's
wrong with this code?
Thanks for the help.