How to store Cells(1,1) into variable

I need to do something like this

Sub Display()
  For i = 1 To 5
    If Cells(i, 1).Value = "" Then Exit For
    MsgBox (Cells(i, 1).Address & "=" & Cells(i, 1).Value)
  Next i
End Sub

I don't want to use Cells(i, 1) all the time.
Instead I would like to use something like

cell = Cells(i, 1)

and then to use cell instead Cells(1,1).

OK I think I got it.
Sorry for post

Set cell = Cells(i, 1)