Guten Morgen zusammen!

Ich habe ein Makro geschrieben, welches im ersten Schritt den Blattschutz aufhebt und danach automatisch 4 Zeilen einblenden soll.
Diese Zeilen sollen eingeblendet werden, wenn in Zelle Q3 oder W3 oder AC3, u.s.w. (siehe Makro) "belongs to multiple Shippble Items" (Auswahl aus Drop Down Menü [Liste], in welchem auch andere Auswahlmöglichkeiten sind) steht.
Falls ein andere Beschreibung aus dem Drop-Down Menü ausgewählt wird, sollen keine Zellen eingeblendet werden.
An sich funktioniert das Makro, allerdings nur bei dem Feld Q4, bei den restlichen Feldern leider nicht.

Private Sub Worksheet_Change(ByVal Target As Range)

'Prüfen, ob wir in der richtigen Zelle sind
If Not Intersect(Target, Range("Q3,W3,AC3,AI3,AO3,AU3,BA3,BG3,BM3,BS3,BY3,CE3,CK3,CQ3,CW3,DC3,DI3,DO3,DU3,EA3,EG3,EM3,ES3,EY3,FE3,FK3,FQ3,FW3,GC3,GI3,GO3,GU3,HA3,HG3,HM3,HS3,HY3,IE3,IK3,IQ3,IW3,JC3")) Is Nothing Then

'Prüfen, ob "Buchungen" in Zelle Q3 steht
If Range("Q3,W3,AC3,AI3,AO3,AU3,BA3,BG3,BM3,BS3,BY3,CE3,CK3,CQ3,CW3,DC3,DI3,DO3,DU3,EA3,EG3,EM3,ES3,EY3,FE3,FK3,FQ3,FW3,GC3,GI3,GO3,GU3,HA3,HG3,HM3,HS3,HY3,IE3,IK3,IQ3,IW3,JC3").Value = "please choose" Then
Sheets("Project Scope").Unprotect
Rows("4:7").EntireRow.Hidden = True
Sheets("Project Scope").Protect
ElseIf Range("Q3,W3,AC3,AI3,AO3,AU3,BA3,BG3,BM3,BS3,BY3,CE3,CK3,CQ3,CW3,DC3,DI3,DO3,DU3,EA3,EG3,EM3,ES3,EY3,FE3,FK3,FQ3,FW3,GC3,GI3,GO3,GU3,HA3,HG3,HM3,HS3,HY3,IE3,IK3,IQ3,IW3,JC3").Value = "belongs to multiple Shippable Items" Then
Sheets("Project Scope").Unprotect
Rows("4:7").EntireRow.Hidden = False
Sheets("Project Scope").Protect
End If

End If

End Sub

Vielleicht kann mir da einer helfen?

LG

dernass09