If you want this to happend when you manually edit a cell in column C then

Right click on the sheet tab and select view code. Put in code like this:

Private Sub Worksheet_Change(ByVal Target As Range)
if Target.count 1 then exit sub
if Target.column = 3 then
Target.offset(0,1).value = Target.Value
end if
End Sub

If cells in C are calculated formulas

Private Sub Worksheet_Calculate()
On Error goto ErrHandler
Application.EnableEvents = False
set rng = range(cells(1,3),cells(rows.count,3).End(xlup))
rng.copy
Range("D1").PasteSpecial xlPasteValues
ErrHandler:
Application.EnableEvents = True
End Sub

--
Regards,
Tom Ogilvy


"Pieter" wrote in message
...
Thanks Don but that do not work when i am in row 30 for example
i want a macro to copy the value of column for example 8 and copy it as a
value to column Column 5 of the same row....


"Don Guillett" wrote:

try

range("d8").value=range("c8")

--
Don Guillett
SalesAid Software

"Pieter" wrote in message
...
Hello,

I need a macro that copy a value out of for example $C8 and copy it as
a
value to $D8 for example.
So macro must also work on for example ROW C25 and D25.
When i record the macro it only works with Row 8.
Can anyone help?

Thanks

Pieter