G
Guest
I put this code in the worksheet's code module
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
'on double click change color to show selection
If Not Intersect(Target, Range("A15")) Is Nothing Then
Target.Select
With Selection.Interior
.ColorIndex = 42
.Pattern = xSolid
End With
Cancel = True
End If
End Sub
But the Target is not changing to the desired color. I've tried to change
the Range part to other values and nothing works.
Can anybody see what I'm doing wrong?
As usual any help will be most appreciated!
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
'on double click change color to show selection
If Not Intersect(Target, Range("A15")) Is Nothing Then
Target.Select
With Selection.Interior
.ColorIndex = 42
.Pattern = xSolid
End With
Cancel = True
End If
End Sub
But the Target is not changing to the desired color. I've tried to change
the Range part to other values and nothing works.
Can anybody see what I'm doing wrong?
As usual any help will be most appreciated!