Copying Cell address to another Cell

[Dean001]

Hi All,

Had loads of help so far and hopefully this is the last for a while...
I am copying values from one sheet to another, this cannot be automated as it is essentially random and carried out visually, but the bit I cant get to work is I also need to copy the cell address of the values I have copied. They need to be displayed in adjacent cells, rather than just using the Paste link option.
ie. the value needs to be copied to column D and the cell address needs to be copied to column C. I am using the below macro to copy the values (the best I have managed so far is to use the paste link function:

Selection.Copy
Sheets("DATA Dump").Select
Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste Link:=True
Sheets("data1").Select
Application.CutCopyMode = False
End Sub

Any help would be grately appreciated.
Thanks

 

[Fluff]

Glad it's sorted & thanks for the feedback.