try removing Exit sub
or simpler??
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
MsgBox ("Displaying " & Cells(i, "A"))
Next i


--
Don Guillett
SalesAid Software

"Barb Reinhardt" wrote in message
...
I have the following snippet of code

For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set REF = Cells(i, "a")
Application.Goto Reference:=REF
Exit Sub
MsgBox ("Displaying " & Cells(i, "A"))
Next i

It's not going to the reference. What do I need to change?

Thanks,