Sub joanne()
For i = 15 To Cells(Rows.Count, "C").End(xlUp).Row
If Cells(i, "C").Value 0 Then
Cells(i, "D").Value = 65
End If
Next
End Sub

Put this in a standard module

--
Gary''s Student - gsnu20076b


"Joanne" wrote:

Using MSOffice2003
On my spreadsheet, I want to do this:

If C15.value 0 then D15.value = 65
Then I want to copy this down these two rows.

Where do I put this code, and am I using proper Excel VBA syntax?

Thanks for your help.

Joanne