1. First you make rmno1.Value = d.Offset(0, 26).Value

2. Then you test if rmno1.Value = d.Offset(0, 26).Value (always going to be True since you just made them equal on the line above)

3. But since there's no code in the If/Then block nothing is executed



[vba]
rmno1.Value = d.Offset(0, 26).Value
If rmno1.Value = d.Offset(0, 26).Value Then
ElseIf d.Value = "" Then
Exit For
End If

[/vba]



[vba]
rmno1.Value = d.Offset(0, 26).Value
If rmno1.Value = d.Offset(0, 26).Value Then
'do something

ElseIf d.Value = "" Then
Exit For
End If
[/vba]

Paul