self delete file & close excel app.

[novice1]

I'm use this code to self-delete the file from my computer and I'm trying to close the excel application. the self-delete works, but excel remains open. What am I doing wrong and how can I fix this?

ThisWorkbook
    .Saved = True
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close 0
end with
application.quit

 

[shg]

Try this:

Sub KillMe()
    With ThisWorkbook
        If Len(Dir(.FullName)) Then
            .Saved = True
            On Error Resume Next
            .ChangeFileAccess Mode:=xlReadOnly
            On Error GoTo 0
            SetAttr .FullName, vbNormal
            Kill .FullName
            .Close SaveChanges:=False
        End If
    End With
End Sub

 

[Av8tordude]

hi shg,

it didn't work. it still keeps the application open.

 

[shg]

Change .Close SaveChanges:=False to application.quit