Multiple IF Statements not working from 3rd statement on - excel

Question

I'm having issues getting the multiple If statement to work after the second statement. I have 2500 rows of data questions sets that are tied to a 217 item drop down list. What I'm trying to code is, that the questions applicable will populate based on the selected operation of the drop down list. Questions applicable per operation vary from 3 - 12, and questions not applicable to the selection should automatically hide the rows. I've tried multiple variations of code, using ElseIf, If, combination If and ElseIf, combination If and Or_ (this is the most recent) as shown below. Can someone please advise on this? I don't know what else to try and I need to add the additional 213 variables to the code.....Thanks
Sub Hide_Rows()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TrigerCell As Range
Set Triggercell = Range("$J$14")
If Not Application.Intersect(Triggercell, Target) Is Nothing Then
If Triggercell.Value = "Electrician, farm based business" Then
Rows("19:2500").Hidden = False
Rows("26:2500").Hidden = True
Or_
If Triggercell.Value = "Plumbing and heating contractors, farm based business" Then
Rows("19:2500").Hidden = False
Rows("19:25", "47:2500").Hidden = True
Or_
If Triggercell.Value = "Plumbing contractors (plumber), farm based business" Then
Rows("19:2500").Hidden = False
Rows("19:46", "55:2500").Hidden = True
Or_
If Triggercell.Value = "Assembly and installation of agricultural equipment in farm outbuildings, for others, farm based business" Then
Rows("19:2500").Hidden = False
Rows("19:55", "61:2500").Hidden = True
End If
End If
End Sub
End Sub
End Sub

Answer 1

Or_ is not something that exists in VBA, so it's not surprising that you're getting a compile error when you try to use it. This usage is unusual enough that it's probably confusing the compiler, which may be why you don't get an error message until the second or third of them (or maybe even on an unrelated statement).
You can make this work with a Select Case statement or by using ElseIf between conditions. I think Select Case is a little more natural for this problem. It should look like this:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TriggerCell As Range
Set Triggercell = Range("$J$14")
If Application.Intersect(TriggerCell, Target) Is Nothing Then Exit Sub
Select Case Triggercell.Value
Case "Electrician, farm based business"
Rows("19:2500").Hidden = False
Rows("26:2500").Hidden = True
Case "Plumbing and heating contractors, farm based business"
Rows("19:2500").Hidden = False
Rows("19:25").Hidden = True
Rows("47:2500").Hidden = True
'Etc.
End Select
End Sub
Note that (per comment on this answer) you can't specify two separate ranges to Rows, which was an issue with several of the blocks in the original code. I've updated the answer accordingly.