Showing known cell reference in a popup

HI

I'm trying to show a selected cell reference in a popup , rather than
the cell content.

This is the code :

Dim lrow As Long
With ActiveSheet
lrow = Range("A" & Rows.Count).End(xlUp).Row
End With

Dim r1 As Range, r2 As Range
Set r1 = Application.InputBox(prompt:="Enter address of first cell",
Type:=8)
Set r2 = Application.InputBox("Address of first cell chosen " & r1 &
vbCr & vbCr & "Enter address of
last cell" & vbCr & vbCr & "(Total Rows In Table : " & lrow & ")",
Type:=8)

Range(r1, r2).Select

End Sub

The problem is that this returns the content of the cell chosen in the
first popup (r1) , rather than the cell reference.

Can someone advise how to do this please?

Grateful for any assistance.