Probleme mit Intersect

der folgende befehl prüft leider nur die zellen e5 und e6:

If Intersect(Range(Cells(5, 5), Cells(6, 5)), ActiveCell) Is Nothing Then

wie muss ich den befehl ändern, damit er wie gewünscht den bereich 5,5 bis 6,5 prüft ?

gruss und danke zum voraus

beat