Put this in the Workbook_Open Event:

Private Sub Workbook_Open()
Application.OnKey "^d", "MoveCursor"
End Sub

Put this in a standard module:

Sub MoveCursor()
On Error Resume Next
ActiveCell.Offset(9).Select
End Sub

Hope this helps! If so, let me know, click "YES" below.
--
Cheers,
Ryan


"Howard" wrote:

I need a snippet of code that will (when you use ctrl-d) look at the active
cell, move the cursor down 9 cells (same column) and make that cell the
active cell, no matter where you start on the spreadsheet.
Any ideas?
Thanks to everyone.
--
Howard