Use multiple criteria for a range

[luke.guthrie]

Is there anyway I can have the following code use multiple numbers when executing the following procedure?

For example, I would like it to use not only "1100" but "1201" as well.

[Md Aejaz]

Dim prog As Long

rcnt = Range("K" & Rows.Count).End(xlUp).Row

For I = 4 To rcnt
If Range("O" & I).Value = "1100" or Range("O" & I).Value = "1201" Then
Range("Q" & I).Value = "15"
Else
Range("Q" & I).Value = ""
End If
Next