Propiedad ActiveSheet

Devuelve un objeto que representa la hoja activa del libro de trabajo especificado. Devuelve Nothing si ninguna hoja está activa. Solo lectura. Use ActiveSheetIndex para cambiar la hoja activa

Workbook.ActiveSheet.Name := 'NewName';