Try using AND instead of OR

--
Don Guillett
SalesAid Software

wrote in message
...
Please tell me why this code does not work with the OR in
the code. If I delete the line Or Range("SupportUnrstrd")
(i).Offset(0, -21) < "550" it works. So I must be doing
something wrong with this OR. Please tell me. Thank you
for your help.



Dim i As Integer
For i = 1 To Range("SupportUnrstrd").Cells.Count
If Range("SupportUnrstrd")(i) < "" Then
If Range("SupportUnrstrd")(i).Offset(0,-
21) < "500" _
Or Range("SupportUnrstrd")(i).Offset
(0, -21) < "550" Then

Sheets("Admin Alloc").Range("A14").End
(xlDown).Offset(1, 0) = _
Range("SupportUnrstrd")(i).Offset(0, -
22)
End If
End If
Next i