Merged cells will not activate Worksheet_SelectionChange Macro

[Bill_Biggs]

I have merged three cells together to make one large activation cell. The Range is B15:D15. I have tried three ways to set up my Worksheet_SelectionChange macro to activate when it is clicked:

    If Not Application.Intersect(Range("B15,C15,D15"), Target) Is Nothing Then
    Macro18 'Create Data Fields
 
    If Not Application.Intersect(Range("B15:D15"), Target) Is Nothing Then
    Macro18 'Create Data Fields
 
    If Not Application.Intersect(Range("B15"), Target) Is Nothing Then
    Macro18 'Create Data Fields

None of these will do it. However, the third one works if I umnerge the cells. Is there a way to make this work and keep the cells merged?

 

[Andrew Poulsom]

This worked for me in Excel 2000:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Range("B15:D15"), Target) Is Nothing Then
        MsgBox "Hello"
    End If
End Sub

Are you sure events are enabled?

 

[mikerickson]

If Not Application.Intersect(Range("B15:D15"), Target) Is Nothing Then

worked for me with B15:D15 merged.

Have you considered using Horizontal Alignment : CenterAcrossSelection rather than merged cells? Merged cells will cause other problems.

 

[Bill_Biggs]

Yeah, and all the other cells that have to activate the macro work, but this one, when the cells are merged, does not. I am in 2007. Could there be a difference? It seems unlikely. I'll give it a go Mick. Long time no see!