ник: Анатолий (Киев)
НЕПРАВИЛЬНО !
Set ExcelApplication = CreateObject("Excel.Application")
With ExcelApplication
Set WrkBk = .Workbooks.Open MyPatch 'fileXLT
.Visible = False 'Это лишнее
End With
далее идут различные извращения с текущим листом.
WrkBk.Save
Set WrkBk = Nothing