
If Selection.Count = 1 And Selection.Column = 1 And Selection <> "" Then
k = Sheets(2).Range("a" & Rows.Count).End(xlUp).Row
Sheets(2).Cells(k + 1, 1) = Selection
End If
|
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "" End Sub |
