Happy to help, and thanks for the feedback..........

Vaya con Dios,
Chuck, CABGx3



"W.Easton" wrote:

Thank you, I combined your ActiveCell line with what Gord posted below and it
works great.
I really appreciate the fast response.

Thank you,
W. Clay Easton
--
Mistakes have been made, others will be blamed


"CLR" wrote:

Sub SetCellValue()
'Sets current cell value to that of column D of the same row
ActiveCell.Value = ActiveSheet.Cells(ActiveCell.Row, 4).Value
End Sub

Vaya con Dios,
Chuck, CABGx3





"W.Easton" wrote:

I am trying to make a funtion (because I am lazy, and there are about 3k
worth of lines that I need to go through) that will copy a specific cell to
the selected cell

Basically what I would like it to do is when I select a cell and and hit a
button it would copy the contents from the current row, column 4 to the
selected cell.