aşağıdaki kod düzgün çalışıyor gibi geldi, bir kaç defa denedim.
açtım kapattım tekrar tekrar -5 6 defa- dendim sorun çıkarmadı
dilerim işinize yarar

Dim XL As Excel.Application

Dim appExcel As excel.Application

Dim myWorkbook As excel.Workbook

  Set appExcel = CreateObject("Excel.Application")

  Set myWorkbook = appExcel.Workbooks.Open(DosyaAdiveYolu)

 appExcel.Visible = True

 AppActivate appExcel.Windows(1).Caption'<==eklendi

 'myWorkbook.Activate '<==silindi

   Set appExcel = Nothing

   Set myWorkbook = Nothing

'2. Yöntem____________

On Error Resume Next

AppActivate "Microsoft Excel"

AppActivate "Excel"

'______________________2. Yöntem_BİTTİ