After you changed it to

For Each cell In Range("E40:E400") '<===== change range to suit
If cell.Value 0 Then
cell.Offset(0,9).Value = "1"
End If
Next cell


I hope <G

--
HTH

Bob Phillips

(replace xxxx in email address with googlemail if mailing direct)

"JohnUK" wrote in message
...
Hi Bob,
I have got well confused over all the feedback I got over this one, but
this
code is the one that worked for me.
Many thanks to Tom, Ikaabod, Kevin also for their help
Wow I will be dishing out rewards next.
Take care
Regards
John

"Bob Phillips" wrote:

For Each cell In Range("E40:E400") '<===== change range to suit
If cell.Value 0 Then
Range("N40").Value = "1"
End If
Next cell


--
HTH

Bob Phillips

(replace xxxx in email address with googlemail if mailing direct)

"JohnUK" wrote in message
...
Hi
The code below is my poor attempt of entering data into one cell
depending
on data in another cell:

Range("E40").Select
If ActiveCell 0 Then
Range("N40").Select
ActiveCell.FormulaR1C1 = "1"

Range("E41").Select
If ActiveCell 0 Then
Range("N41").Select
ActiveCell.FormulaR1C1 = "1"

Range("E42").Select
If ActiveCell 0 Then
Range("N42").Select
ActiveCell.FormulaR1C1 = "1"

Range("E40").Select
If ActiveCell 0 Then
Range("N40").Select
ActiveCell.FormulaR1C1 = "1"

and so on and so on............

What I need is a piece of code that does a loop (I guess) that does
the
same
job with a fraction of the code.

I know it can be done using formulas on the page, but I am trying to
get
away from that for the time being.
Any help...............

Regards
John