Excel VisualBasic Script

Sub cellAddress()
    MsgBox range(cells(1, 1), cells(5, 5)).Address
End Sub