Final Question

[Himszy]

Hi again

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

Thanks Michael

 

[Bob Phillips]

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

--

HTH

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

 

[Himszy]

Hi again

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

Thanks Michael

Sorry I've worked it out

 

[Nick Hodge]

Michael

Using my code it would be

rFound.Offset(1,0)

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)