Zeilen ein- und ausblenden (die 3.)

Hallo liebes Forum,
und nun die 3. Frage zum Thema Zeilen ein- und ausblenden :D
Ich habe folgenden Code um Zeilen ein- und auszublenden:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$34" Then
Rows("46:48").Hidden = UCase(Target) = "EUR"
End If
End Sub