There is also a Change event for a worksheet.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Copy
Windows("master.request.xls").Activate
Sheets("Sheet1").Select
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
(xlPasteAll)
ThisWorkbook.Activate
End Sub


Mark


J.W. Aldridge wrote:
Unfortunately, that's where I need help. ....with the code.
I guess it can be either a change event or as the example above.

Thanx