When running a code my curser ends up moving. For
example, the active cell was D4 when everything started.
During the running of the code there is cutting and
pasteing etc. At the end of all the activity I need the
code to remember the original cell (D4) and return
there. ???

Hi scrabtree

For most things you don't have to select cells.
But you can do this

Sub test()
Dim Srange As Range
Srange = ActiveCell

' your code

Srange.Select
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"scrabtree" wrote in message ...
When running a code my curser ends up moving. For
example, the active cell was D4 when everything started.
During the running of the code there is cutting and
pasteing etc. At the end of all the activity I need the
code to remember the original cell (D4) and return
there. ???

Not really. You do NOT have to make selections to cut/paste. The following,
as an example can be run from anywhere in the workbook.

sheets("sheet1").range("a1").copy sheets("sheet2").range("a1")
to get just values
sheets("sheet2").range("a1").value=sheets("sheet1" ).range("a1").value

--
Don Guillett
SalesAid Software

"scrabtree" wrote in message
...
When running a code my curser ends up moving. For
example, the active cell was D4 when everything started.
During the running of the code there is cutting and
pasteing etc. At the end of all the activity I need the
code to remember the original cell (D4) and return
there. ???