what do you mean by "ping"?

try

selection.value = Cells(selection.row,1).Value


Patrick Molloy
Microsoft Excel MVP


"Andy Mohan" wrote in message
...
I would like to create an Excel macro to ping a list of numbers in Column A
and put the result in the same row but in the active Column when the macro
started

Any Offers of help ?