本示例定义一个区域并显示其地址。

Set MyRange = Worksheets("Sheet1").Cells(1, 1)
MsgBox MyRange.Address