Hi JSnow

You can use this event in the sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("C6"), Target) Is Nothing Then
If Target.Value < "" Then
Range("D6").Value = Target.Value
End If
End If
End Sub




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JSnow" wrote in message ...
I would like to have a bit of VBA code that triggers a macro when a cell is
no longer empty. For example: when cell C6 is not longer empty (C6<"") then
macro whatEver.

The macro, just so you know, will copy the contents from C6 and special
paste the value only into D6. If this can be done all with VBA then that's
even better. Betterier.

I'm bowing faithfully at my cubical to you Excel Gods. Thanks again.