Именно в этом порядке:
'Лист Готов! : objWorkSheet.Range("A7").Select '-------------------------------------------------------------------- objExcelApp.Visible = True objExcelApp.WindowState = 3 'во весь экран