Might be a bit faster...

```
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="+"
Call TurnOn
If Not Intersect(Target, Range("D8:D25")) Is Nothing Then
Select Case Range("D9").Value
Case Is = "Britain"
Range("D10") = "Special"
Rows("11:13").EntireRow.Hidden = False
Me.ComboBox2.Visible = False
Range("D13") = Range("A13")
Range("D15") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,15,0),)"
Range("D16") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,16,0),)"
Range("D17") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,21,0),)"
Range("D18") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,22,0),)"
Case Is = "Switzerland"
Range("D10") = "Special"
Rows("23:24").EntireRow.Hidden = False
Me.ComboBox2.Visible = False
Rows("11:14").EntireRow.Hidden = False
Range("D13") = Range("A13")
Range("D15") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,15,0),)"
Range("D16") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,16,0),)"
Range("D17") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,21,0),)"
Range("D18") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,22,0),)"
Case Is = "US"
Rows("11:14").EntireRow.Hidden = True
Me.ComboBox2.Visible = True
If Range("D10").Value = "Salary15" Then
Rows("17:18").EntireRow.Hidden = True
Else
Rows("17:18").EntireRow.Hidden = False
End If
Range("D17") = "=IFERROR(VLOOKUP(D10, '5.4 Sales Base'!E7:BF17,39,0),)"
Range("D18") = "=IFERROR(VLOOKUP(D10, '5.4 Sales Base'!E7:BF17,54,0),)"
End Select
Select Case Range("D8").Value
Case Is = "C4"
Range("D22") = "Yes"
Range("D23") = "2%"
Case Is = "C5.1"
Range("D21") = "400"
Rows("10:10").EntireRow.Hidden = False
Rows("20:20").EntireRow.Hidden = True
Range("D22") = "Yes"
Range("D23") = "2%"
Me.ComboBox2.Visible = True
Rows("17:18").EntireRow.Hidden = True
Case Is = "C5.2"
Rows("10:10").EntireRow.Hidden = False
Rows("20:20").EntireRow.Hidden = True
Range("D22") = "Yes"
Range("D23") = "2%"
Me.ComboBox2.Visible = True
Rows("17:18").EntireRow.Hidden = True
Range("D21") = "N/A"
Case Is = "C5.3"
Rows("10:10").EntireRow.Hidden = False
Rows("20:20").EntireRow.Hidden = False
Range("D20") = "25%"
Range("D22") = "Yes"
Range("D23") = "2%"
Range("D21") = "400"
Me.ComboBox2.Visible = False
Range("D16") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,39,0),)"
Range("D17") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,40,0),)"
Range("D18") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,41,0),)"
Case Is = "C5.4"
Rows("10:10").EntireRow.Hidden = False
Rows("20:20").EntireRow.Hidden = False
Range("D20") = "25%"
Range("D21") = "N/A"
Range("D22") = "Yes"
Range("D23") = "2%"
Range("D16") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,39,0),)"
Range("D17") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,40,0),)"
Range("D18") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,41,0),)"
Me.ComboBox2.Visible = False
Case Else
Rows("10:10").EntireRow.Hidden = False
Rows("17:18").EntireRow.Hidden = False
Range("D1") = ""
End Select
End If
If Not Intersect(Target, Range("D22:D25")) Is Nothing Then
Select Case Range("D22").Value
Case Is = "No", ""
Rows("23:24").EntireRow.Hidden = True
Case Is = "Yes"
Rows("23:24").EntireRow.Hidden = False
End Select
End If
Application.ScreenUpdating = True
Call TurnOff
End Sub
```

Display More