Excel VBA-用目标调用后，子项未完成

Question

I'm trying to make an a Worksheet that adapts depending on the different selections on the page. There are 3 cells wills drop down lists that will modify the page depending on the selected value. When I launch the sub directly in the Worksheet_SelectionChange it works without problems (as it's only one) but as I needed 3 I wanted to launch it depending on which cell you select. The problem I have now is that the selection works (test done with Showmsg) but everything that should happen after doesn't.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D25")) Is Nothing Then
            Call LineBlock_Change(Target)
        End If
    End If
End Sub

---------

Sub LineBlock_Change(ByVal Target As Range) 'D25
    Select Case Target
    Case "Non Protected / Non Redundant"
        ' Affichage 1 Ligne
        Columns("J:O").Hidden = True
    Case Else
        ' Affichage 2 Ligne
        Columns("J:O").Hidden = False
    End Select
End Sub

The thing is that when I use the same code of the Sub in Worksheet_SelectionChange(with a limitation on the Cell that can be selected) It does work but while trying to lunch with a Sub it doesn't. I personnaly don't know if it can be followed up like that or if I need to rethink the way of doing it.

Thanks in advance for any help.

---

Update : As I noticed that I might have some problems really explain what I can't do I will try an other approach. I have this code :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address <> "$D$25" Then Exit Sub
    Select Case Target
     Case "Non Protected / Non Redundant"
        ' Affichage 1 Ligne
        Columns("J:O").Hidden = True
    Case Else
       ' Affichage 2 Ligne
        Columns("J:O").Hidden = False
    End Select
End Sub

It does exactly what I desire, when D25 has the string : "Non Protected / Non Redundant" it hides the Columns J:O. Now my problem is that D25 is not the only condition that I wish to have that will hide/unhide columns/rows. And such I'm trying to write a code that would launch a sub depending on which Cell is selected and what is inside of it. Though when I try to write the code in a way that it would work as a sub it doesn't reacts the way I would like (hiding the columns).

Answer 1

Sub LineBlock_Change(ByVal Target As Range) 'D25

    Stop '<-  see what happens
    Select Case Target

    Case "Non Protected / Non Redundant"
        ' Affichage 1 Ligne
        Columns("J:O").Hidden = True
    Case Else
        ' Affichage 2 Ligne
        Columns("J:O").Hidden = False        
    End Select

End Sub

The problem in LineBlock are the following:

• Column should be Columns()
• Columns("J:O").EntireRow.Hidden = True hides the whole worksheeet. That's great! But you probably need to remove the EntireRow part.

---

Edit:

Upon the update, reading that "D25 is not the only condition that I wish to have that will hide/unhide columns/rows" this is what you should do:

Select Case True

    Case Target = "Non Protected / Non Redundant"
        'some action
    Case Range("A1") = "something else"
        'some other action
    Case Else
        Columns("J:O").Hidden = False
End Select