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. ???