Hi,

- - - - - - - - - - - - - - - - - - - - - - - - - -
Sub ad_old() 'Your macro
If Range("Sheet1!A1") < 0 Then
Range("Sheet2!D1").Select
Range("Sheet2!d1") = Range("Sheet1!a1")
End If
End Sub

Sub ad_new1()
If Range("Sheet1!A1") < 0 Then
Worksheets("Sheet2").Select
Range("D1").Select
Range("Sheet2!d1") = Range("Sheet1!a1")
End If
End Sub

Sub ad_new2()
If Range("Sheet1!A1").Value < 0 Then
Range("Sheet2!D1").Value = Range("Sheet1!A1").Value
End If
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - -


--
Regards,
Soo Cheon Jheong
_ _
^¢¯^
--