ActiveSheet プロパティ

指定したワークブックのアクティブシートを表すオブジェクトを返します。アクティブシートがない場合は Nothing を返します

Workbook.ActiveSheet.Name := 'NewName';