Help to modify this code

[rockyw]

I have this code that works great to double click data from sheet 1 to sheet 2 and so on. Can I modify this again to work with 2 different work books? Can I open one work book (say item numbers) and a 2nd work book (say blank order form) and have the one move double clicked data to the other work book? Thanks

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Sheets(1).Range("A1:A100")) Is Nothing Then
MsgBox "You just clicked on " & Target.Address
Sheets(2).Range("A1").Value = Target.Value
End If
If Not Intersect(Target, Sheets(1).Range("B1:B100")) Is Nothing Then
MsgBox "You just clicked on " & Target.Address
Sheets(2).Range("B1").Value = Target.Value
End If
End Sub

[royUK]

Four posts & three rules broken. Either read the Forum Rules & follow them or don't bother posting.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here