A massive THANK-YOU!!!!

You're a star and a great help!!!!

it worked a treat!

Cheers
Sanj



-----Original Message-----
To test (say) rows 1 to 20:

Sub mytest()
Dim rRow As Long
For rRow = 1 To 20
If Not (IsEmpty(Cells(rRow, 2))) And _
Cells(rRow, 2).Value = 0 Then Cells(rRow, 4).Value =
True
Next rRow
End Sub



wrote in message
...
Hi All

I was hoping that someone may be able to help me.
Basically if I have cell with a value 0, with a click
of
a button a macro will check all the values in that
column
(B1) for the value 0, and place a value (True) in
column
D1. can you lep?


.