Looks like you were trying to mix syntax.

Sub copyover()
If Range("Sheet1!A1") < 0 Then
Sheets("sheet2").Range("d1") = Sheets("sheet1").Range("a1")
'or
'[sheet2!d1] = [Sheet1!a1]
end if
End Sub

--
Don Guillett
SalesAid Software

"tim lee" wrote in message
...


--
TIM LEE tax agent 55 807 001
4a/123 Colin St West Perth 6005
Tel 08 9481 0337 Fax 9321 0036

"Soo Cheon Jheong" wrote in message
...
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() WITH THIS
ONE
I GET A RUNTIME ERROR 1004

CAN YOU HELP PLEASE?
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
_ _
^¢¯^
--