KK1966
01-01-2009, 08:26 PM
hi, all
the double click functions can it be a 1 Click ??
I have code here's wanted to changed 1Click, please help help me,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MYRANGE As Range
Set MYRANGE = Range("a1:e1")
Cancel = True
If Not Application.Intersect(Target, MYRANGE) Is Nothing Then
Range("a3") = Target.Value
End If
End Sub
your help I really thanks a much
the double click functions can it be a 1 Click ??
I have code here's wanted to changed 1Click, please help help me,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MYRANGE As Range
Set MYRANGE = Range("a1:e1")
Cancel = True
If Not Application.Intersect(Target, MYRANGE) Is Nothing Then
Range("a3") = Target.Value
End If
End Sub
your help I really thanks a much