Selection change range question

[RedOctoberKnight]

Good Morning,

I have the following formula that i'm using to create horizontal tabs on a worksheet. I'm running into problems with merged cells which are the tabs. I'm not sure how to write the formula so that it accounts for the merged cells. The tabs are merged using cells E3:F4 for one, G3:H4 for another, and I3:J4 for the last.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("E3:J3")) Is Nothing Then
    If Target.Column = 5 Then BOARDS_RAMP
    If Target.Column = 6 Then BOARDS_CS
    If Target.Column = 7 Then BOARDS_OPS
  
    End If
    
    



End Sub

Any help would be much appreciated. Thanks

 

[Joe4]

Merged problems are a HUGE headache! They are so bad that not only do most "power users" never use them, many will will not even look at at any questions that use them. Merged cells absolutely wreak havoc with VBA and things like sorting.

If you any have ability to eliminate the merged cells, I think you may have more luck getting assistance with your VBA code.

 

[RedOctoberKnight]

Merged problems are a HUGE headache! They are so bad that not only do most "power users" never use them, many will will not even look at at any questions that use them. Merged cells absolutely wreak havoc with VBA and things like sorting.

If you any have ability to eliminate the merged cells, I think you may have more luck getting assistance with your VBA code.

Thank you for the info. I didn't realize they created such a mess. I will see what I can do without them. Thanks.

 

[Joe4]

You are welcome.

Note that for merging cells across single rows, you can use the "Center Across Selection" formatting option. It gives the same visual effect of merged cells without all the problems/
See: Tom’s Tutorials For Excel: Using Center Across Selection Instead of Merging Cells – Tom Urtis

Unfortunately, I have not seen a good alternative for merging multiple rows into one.