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,