you mean, if cell d(n) is empty, then copy cell r(n)
into cell d(n)??

Here's my guess:

If IsEmpty(Range("D1")) Then
Range("D1").Value = Range("R1").Value
End If


"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