Assuming we are talking about running this code against the ActiveSheet and
that d(n) means you are referring to the Nth row in Column "D", then I think
you may be looking for this construction for your code...

If Cells(n, "D") = "" Then Cells(n, "D").Value = Cells(n, "R").Value

--
Rick (MVP - Excel)


"Robert Bloom" wrote in message ...
I need to write a macro for excel to do the following.

If cell d(n) is "" the copy r(n) into d(n).

anyone know what sub needs to be written?

Cheers

EggHeadCafe - Software Developer Portal of Choice
COM+ Services Overhead in .NET
http://www.eggheadcafe.com/tutorials...erhead-in.aspx