ActiveSheet 属性

返回表示指定工作簿中活动工作表的对象。如果没有活动工作表，则返回 Nothing。只读。使用 ActiveSheetIndex 或 Activate 选择活动工作表，并使用 FirstSheet 选择工作簿标签栏中的第一个可见标签

Workbook.ActiveSheet.Name := 'NewName';