Failed to run the macro by using Task Scheduler

[justpassingby]

The objective of below macro is to delete the workbook "target.xls". I created another workbook called "wkbkdel.xls" and paste the below VBA code in its ThisWorkbook object (when wkbkdel.xls was open, it will automatically run the macro).

The problem is that, when I manually open the wkbkdel.xls, it does work to delete the target.xls whatever the target.xls is opening or closed. However, when I set the Task Scheduler (Windows 7) to automatically open the wkbkdel.xls, it ONLY works when the target.xls closed (it means that the macro cannot delete target.xls given that it is opening). Is there any code that I need to add on below in order to make it works by Task Scheduler activation?

Sub workbook_open()


On Error Resume Next
Workbooks("target.xls").Close True


Dim fso
Set fso = CreateObject("scripting.filesystemobject")


If fso.FileExists("C:\Users\me\Desktop\target.xls") = False Then
Application.Quit
End If


FileSystem.Kill "C:\Users\me\Desktop\target.xls"


Application.Quit


End Sub