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