Hi there,

I'm trying to write a macro, so that if a cell in a range has a value placed in it - Now() is written to a corresponding cell in another column, then the value copied and pasted (so that it does not update).

I have this -

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(False, False) = "F6:F45" Then
Application.EnableEvents = False

If Range("F6:F45") = "1" Then
Range("D6:D45").Value = Now()

Else
Range("D6:D45") = "No call taken"

End If

Application.EnableEvents = True

End If

Range("D6:D45").Select
Selection.Copy
Range("D6:D45").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

For some reason it does not want to work for me. I have EnableEvents set to True on workbook open and am running Office XP.

Would appreciate any advice to steer me in the right direction as I am still quite new to VBA!

Thanks

Rob