Вместо
Application.DisplayAlerts = ложно
которые disables ДОСТУП предупреждает, вам нужно использовать
excelApp.DisplayAlerts = ложно
если excelApp будет перемеююый для Excel.Application.
например.
установите excelApp = CreateObject («Excel.Application ")
…
…
excelApp.DisplayAlerts = ложно
excelWB.SaveAs…
excelApp.Quit