Firstly, Rows(iRow,1) won't work. Do you mean Cells(iRow,1)?

You could put all the dates in an array and then loop the array, e.g.

Dim bFlag As Boolean
myArray = Array(#11/15/2005#, #11/23/2005#)
For iCt = 0 To UBound(myArray)
If Cells(iRow, 1) = myArray(iCt) Then
bFlag = True
Exit For
End If
Next iCt
If bFlag = True Then
'do something
End If

Hth,
Merjet