I am getting this error and where th If not starts its is in red showing that is where the issue is
HTML Code:Sub RemoveRows() Dim LR As Long, i As Long Dim ws As Worksheet Set ws = Worksheets("100 Airports") LR = Range("B" & Rows.Count).End(xlUp).Row For i = LR To 10 Step -1 If Not(Range("B" & i).Value = Ws.Range("E4") or (Range("B" & i).Value = Ws.Range("E5") or (Range("B" & i).Value = Ws.Range("E6") or (Range("B" & i).Value = Ws.Range("E7") or (Range("B" & i).Value = Ws.Range("E8") or (Range("B" & i).Value = Ws.Range("E9") or (Range("B" & i).Value = Ws.Range("E10") or (Range("B" & i).Value = Ws.Range("E11") or (Range("B" & i).Value = Ws.Range("E12") or (Range("B" & i).Value = Ws.Range("E13") or (Range("B" & i).Value = Ws.Range("E14") or (Range("B" & i).Value = Ws.Range("E15") or (Range("B" & i).Value = Ws.Range("E16") or (Range("B" & i).Value = Ws.Range("E17") or (Range("B" & i).Value = Ws.Range("E18") or (Range("B" & i).Value = Ws.Range("E19") or (Range("B" & i).Value = Ws.Range("E20") or (Range("B" & i).Value = Ws.Range("E21") or (Range("B" & i).Value = Ws.Range("E22") or (Range("B" & i).Value = Ws.Range("E23") or (Range("B" & i).Value = Ws.Range("E24") or (Range("B" & i).Value = Ws.Range("E25") or (Range("B" & i).Value = Ws.Range("E26") or (Range("B" & i).Value = Ws.Range ("E27") or (Range("B" & i).Value = Ws.Range("E28") or (Range("B" & i).Value = Ws.Range("E29") or (Range("B" & i).Value = Ws.Range("E30") or (Range("B" & i).Value = Ws.Range("E31") or (Range("B" & i).Value = Ws.Range("E32") or (Range("B" & i).Value = Ws.Range("E33") or (Range("B" & i).Value = Ws.Range("E34") or (Range("B" & i).Value = Ws.Range("E35") or (Range("B" & i).Value = Ws.Range("E36") or (Range("B" & i).Value = Ws.Range("E37") or (Range("B" & i).Value = Ws.Range("E38") or (Range("B" & i).Value = Ws.Range("E39") or (Range("B" & i).Value = Ws.Range("E40") or (Range("B" & i).Value = Ws.Range("E41") or (Range("B" & i).Value = Ws.Range("E42") or (Range("B" & i).Value = Ws.Range("E43") or (Range("B" & i).Value = Ws.Range("E44") or (Range("B" & i).Value = Ws.Range("E45") or (Range("B" & i).Value = Ws.Range("E46") or (Range("B" & i).Value = Ws.Range("E47") or (Range("B" & i).Value = Ws.Range("E48") or (Range("B" & i).Value = Ws.Range("E49") or (Range("B" & i).Value = Ws.Range("E50") or (Range("B" & i).Value = Ws.Range("E51") or (Range("B" & i).Value = Ws.Range("E52") or (Range("B" & i).Value = Ws.Range("E53") or (Range("B" & i).Value = Ws.Range("E54") or (Range("B" & i).Value = Ws.Range("E55") or (Range("B" & i).Value = Ws.Range("E56") or (Range("B" & i).Value = Ws.Range("E57") or (Range("B" & i).Value = Ws.Range("E58") or (Range("B" & i).Value = Ws.Range("E59") or (Range("B" & i).Value = Ws.Range("E60") or (Range("B" & i).Value = Ws.Range("E61") or (Range("B" & i).Value = Ws.Range("E62") or (Range("B" & i).Value = Ws.Range("E63") or (Range("B" & i).Value = Ws.Range("E64") or (Range("B" & i).Value = Ws.Range("E65") or (Range("B" & i).Value = Ws.Range("E66") or (Range("B" & i).Value = Ws.Range("E67") or (Range("B" & i).Value = Ws.Range("E68") or (Range("B" & i).Value = Ws.Range("E69") or (Range("B" & i).Value = Ws.Range("E70") or (Range("B" & i).Value = Ws.Range("E71") or (Range("B" & i).Value = Ws.Range("E72") or (Range("B" & i).Value = Ws.Range("E73") or (Range("B" & i).Value = Ws.Range("E74") or (Range("B" & i) .Value = Ws.Range("E75") or (Range("B" & i).Value = Ws.Range("E76") or (Range("B" & i).Value = Ws.Range("E77") or (Range("B" & i).Value = Ws.Range("E78") or (Range("B" & i).Value = Ws.Range("E79") or (Range("B" & i).Value = Ws.Range("E80") or (Range("B" & i).Value = Ws.Range("E81") or (Range("B" & i).Value = Ws.Range("E82") or (Range("B" & i).Value = Ws.Range("E83") or (Range("B" & i).Value = Ws.Range("E84") or (Range("B" & i).Value = Ws.Range("E85") or (Range("B" & i).Value = Ws.Range("E86") or (Range("B" & i).Value = Ws.Range("E87") or (Range("B" & i).Value = Ws.Range("E88") or (Range("B" & i).Value = Ws.Range("E89") or (Range("B" & i).Value = Ws.Range("E90") or (Range("B" & i).Value = Ws.Range("E91") or (Range("B" & i).Value = Ws.Range("E92") or (Range("B" & i).Value = Ws.Range("E93") or (Range("B" & i).Value = Ws.Range("E94") or (Range("B" & i).Value = Ws.Range("E95") or (Range("B" & i).Value = Ws.Range("E96") or (Range("B" & i).Value = Ws.Range("E97") or (Range("B" & i).Value = Ws.Range("E98") or (Range ("B" & i).Value = Ws.Range("E99") or (Range("B" & i).Value = Ws.Range("E100") or (Range("B" & i).Value = Ws.Range("E101") or (Range("B" & i).Value = Ws.Range("E102") or (Range("B" & i).Value = Ws.Range("E103")) Then Rows(i).Delete Next i End Sub
Bookmarks