Error 70 Permission Denied

[sharky12345]

I'm randomly getting an error 70, Permission Denied when I try to execute the following routine;

Sub DeleteFiles()

'Raw Data
    If FileFolderExists(ThisWorkbook.Path & "\Toolbox Files\System Files\Raw Data*.xlsx") Then
        Kill ThisWorkbook.Path & "\Toolbox Files\System Files\Raw Data*.xlsx"
    End If
    'Handover Documents
    If FileFolderExists(ThisWorkbook.Path & "\Toolbox Files\System Files\Handover*.pdf") Then
        Kill ThisWorkbook.Path & "\Toolbox Files\System Files\Handover*.pdf"
    End If


End Sub

I don't know which line it is failing on because it fails when the routine itself is called from the Workbook Close event.

The odd thing is that sometimes it works with no errors at all.

Can anyone offer advice?

 

[Fluff]

Does somebody have the file open?

 

[sharky12345]

Thanks Fluff - the file will be in the users own account, so in theory not - but the user may have inadvertently left it open. Is there a method to check if it's open first before it's deleted?