If ActiveCell.Value < "" Then
ACtivecell.Offset(1,0).Value = "something"
End If

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Himszy" wrote in message
. ..
Hi again

Im trying to write that if there is a value in a cell write in the one
beneath it

Thanks Michael