Prüfe Tabelle für Tabelle nach bestimmten Inhalt

Private Sub CommandButton5_Click()
Dim lngZ As Long
With Sheets("Mitarbeiterdaten")
Workbooks.Open kompletterpfad
For lngZ = 4 To .Cells(.Rows.Count, 7).End(xlUp).Row
If Not IsEmpty(.Cells(lngZ, 7)) Then
.Cells(lngZ, 9) = IIf((.Range("N2") = "X"), "Ja", "Nein")
End If
Next lngZ
End With
End Sub

Zur Erklärung:
In "Mitarbeiterdaten" stehen untereinander in der Spalte 7 die Namen für die in "Workbooks.Open kompletterpfad" zu findenden Tabellen. Jetzt soll in jeder Tabelle in "Workbooks.Open kompletterpfad" nachgesehen werden, ob in N2 ein "X" drin steht oder nicht. Wenn Ja, dann soll in "Mitarbeiterdaten" in der Spalte 9 ein "Ja" oder ein "Nein" zu finden sein.
Wo hab ich denn mein Denkfehler?
Der Tom