On 6 Nov 2004 02:58:01 -0800, "ManualMan"
wrote:

Hi there,

You could of course try a simple For..Next Loop:

For cnt = 1 To 1000
If Worksheets("Sheet1").Cells(cnt, 1).Value = 0 Then
Worksheets("Sheet1").Cells(cnt, 1).Value =
Worksheets("Sheet2").Cells(1, 46).Value
Exit Sub 'as soon as an empty row is filled,. stop looping
End If
Next cnt

Regards,
Manual Man

Hi Manual Man,

Thanks very much indeed for the suggestion - I shall give it a try.


--
Cheers

Peter

Remove the INVALID to reply