On Wed, 23 Jul 2008 16:28:02 -0500, "Don Guillett"
wrote:

Thank you very much, I will do my best to try this

Wayne


From the destination book copying from source wb with same sheet and range
Sub copysht()
ms = ActiveSheet.Name
mr = ActiveCell.Address
Workbooks("source.xls").Sheets(ms).Range(mr).Co py ActiveCell
End Sub