本示例定义了一个Range对象,并显示该对象所在的Sheet的名称。

Worksheets("sheet1").Activate

Set r1 = Range("A1:B2")

MsgBox r1.Worksheet.Name