本示例定义了一个Range对象,并显示该对象所在的Sheet的名称。
Worksheets("sheet1").Activate
Set r1 = Range("A1:B2")
MsgBox r1.Worksheet.Name