Tim,

If Sheets("Sheet1").Range("A1")<0 then
Sheets("Sheet2").Range("D1")=Sheets("Sheet1").Rang e("A1")
End If

This should work regardless of which sheet you are on.

regards,
Don

"timothylee" wrote in message
...
I am trying to get data in sheet1 a1 (10) into sheet 2 d1 and it wont
run -
can you tell me where I am going wrong please?

Sub ad()
If Range("sheet1!a1") < 0 Then
Range("sheet2!d1").Select
Range("sheet2!d1") = Range("sheet1!a1")
End If
End Sub

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