Advil


Don't become discouraged.
--
Gary''s Student - gsnu200726


"Cat" wrote:

Thank you for answering my plea - I'll try that - tomorrow - My head hurts
now :(
Cat

"Gary''s Student" wrote:

How about:

Sub cat()
nq = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To nq
Cells(i, 3).Value = Cells(i, 2).Value - Cells(i, 1).Value
Next
End Sub


with sample results in cols A & B & C:

5/16/2007 5/31/2007 15
4/1/2007 6/3/2007 63
4/11/2007 4/21/2007 10

--
Gary''s Student - gsnu200726