Copy code amendment.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet
Set ws = Sheets("Sheet2")
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(irow, 1).Value = Target.Value
End Sub

I am using above formula to copy. The problem being faced is that if in any sheet of the workbook is double clicked, the data is copied in sheet 2. Is it possible to amend the formula to make it only a particular sheet(query) specific instead of Workbook.

thanks

Flower R

Flower, please edit your post and change the quote tags to qode tags.

If you want the event to fire only for a particular worksheet, put the code in the Worksheet_BeforeDoubleClick event in the appropriate sheet module.

Flower, now that you've removed the quote tags from your code, please add code tags.

Again, If you want the event to fire only for a particular worksheet, put the code in the Worksheet_BeforeDoubleClick event in the appropriate sheet module. So put this in the Query sheet module:

Please Login or Register  to view this content.