Basic Help: Copy value from one sheet to another

[afzalw]

Can any one correct whats wrong with this code. I want to copy the last value in last cell of D column Sheet 2 to Sheet 1 cell B1.


[VBA]

Set rDest = Sheets(1).Range("B1")
rDest.Value = Sheets(2).Range("D2").End(xlDown).Value

[/VBA]

[Paul_Hossler]

What happens when you run it?

Paul