My understanding is that you can't trust the loop variable outside the loop.
So I would just do the copy at that point

Dim c as Range
For Each c In Worksheets("admit").Range("B11:B32")
If c.Value = 0 Then
Range("B4").copy c
Exit For
end if
Next


--
Regards,
Tom Ogilvy



"John in Surrey" wrote in message
...
hi folks

Im looping thru a range to find the first blank cell to fill...
of exiting my loop how do I paste into it?

Range("B4").Select
Selection.Copy
For Each c In Worksheets("admit").Range("B11:B32").Cells
If c.Value = 0 Then Exit For
Next
' past data here

how do I past into c.? - the first cell containing 0 that Ive found...

thanks folks

Images of home (NZ)
http://www.titahi-bay.co.nz/home
What we are up to in the UK
http://www.titahi-bay.co.nz