Worksheet_SelectionChange Event
Hi Tom,
Thanks for looking. It did execute when I move to to this
range from other cells. However, when I play with
validation drop down changing it from "Yes" to "No"
nothing is happening. How would I program for this?
Thank you,
Greg
-----Original Message-----
Code worked fine for me. If I select the merged cells
(either G46 or H46)
the macro executes.
What do you mean by does not work. Do you get an error.
Does it not
execute (are events enabled?).
--
Regards,
Tom Ogilvy
"G R E G" <Greg@*.* wrote in message
...
Hi,
The code below does not work for some reason.
This procedure is in worksheet "Sheet1"
Range("g46:h46") is two merged cells, perhaps this is
the
reason? It is validated to have either "yes" or "no"
Thank you,
Greg
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Intersect(Selection, Range("g46:h46")) Is Nothing
Then
Exit Sub
If Not Intersect(Selection, Range("g46:h46")) Is Nothing
Then
If Range("g46") = "NO" Then
Sheets("Detail").Activate
Sheets("Detail").Range("b13:A43").BorderAround _
ColorIndex:=3, Weight:=xlThick
MsgBox "You may overwrite dates here" ,, "Optional"
Sheets("Detail").Range("b13:A43").Borders.LineStyl e
=
xlLineStyleNone
Sheets("Sheet1").Activate
End If
End If
End Sub
.
|