çalışmanızı görmeden bir şey demem zor ama aşağıdakine benzer bir kod kullandığımda bende otomatik olarak en önde açıldı

Dim appExcel As Excel.Application

 Dim myWorkbook As Excel.Workbook

  Set appExcel = CreateObject("Excel.Application")

    Set myWorkbook = appExcel.Workbooks.Open(dosyaAdresiveAdi)

    appExcel.Visible = True

    Set appExcel = Nothing

    Set myWorkbook = Nothing