The process needs to check both conditions before exiting the
subroutine. I think you can just change the initial "exit" check to
only process if the if is "true", as follows.


Private Sub Worksheet_Change(ByVal Target As Range)
'Budget
Set t = Target
Dim symbbud As String
symbbud = Range("CurrencySymbolBudget").Value
On Error GoTo ErrHandler:
If Not Intersect(t, Range("B4")) Is Nothing Then
* * 'ActiveSheet.Unprotect Password:=" "

* * Select Case Range("B4").Value
* * Case "$"
* * 'this line does not use any spaces to separate the $ symbol from
the number
* * * * Range("BudgOtherCurrencyCells").NumberFormat = symbbud &
"#,##0;[red]" & symbbud & "-#,##0;0"
* * Case Else
* * 'this line uses one space to separate the currency symbol from the
number
* * * * Range("BudgOtherCurrencyCells").NumberFormat = symbbud & "
#,##0;__[red]" & symbbud & "__-#,##0;0"
* * End Select
End If
If Not Intersect(t, Range("E173")) Is Nothing Then

* * Select Case Range("E173").Value
* * Case "3"
* * * * Range("H2:U4").UnMerge
* * * * Columns("L:M").Select
* * * * Selection.EntireColumn.Hidden = True
* * * * Range("H2:U4").Merge
* * End Select
End If
'ActiveSheet.Protect Password:=""

Exit Sub
ErrHandler:
End Sub