VBA click questions

[KK1966]

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

[Kenneth Hobs]

Choose the SelectionChange event from the drop down list and post you code in it or change the name of that Sub. That sub goes in the sheet that you right click the sheet tab, View Code.

[KK1966]

Kenneth


Thanks the suggestiog I understand

[KK1966]

Hi ,

may i have you help again as the below srouce code why will disable the right click fuction in cursor even out the ranges>?

can u learn about.. thanks

Private Sub Worksheet_BeforeRightClick(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

[Artik]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim MYRANGE As Range

Set MYRANGE = Range("A1:E1")

If Not Application.Intersect(Target, MYRANGE) Is Nothing Then
Cancel = True
Range("A3") = Target.Value
End If


End Sub
Artik

[Artik]

Redundant post



Artik