how can I wirte code to delete only xls extension file from current workbook's location?

[jaik22]

Sub Deleteexcel()
     'You can use this to delete all xls files in the folder Test
    On Error Resume Next
    Kill Application.ActiveWorkbook.Path"*.xls"
    On Error GoTo 0
End Sub

I have code above that is trying to delete every file with xls extension. I have wrong syntax, but no idea how to fix this.

Is anyone has idea to make this code work?

thanks!

 

[Fluff]

Try

Sub Deleteexcel()
     'You can use this to delete all xls files in the folder Test
    On Error Resume Next
    Kill Application.ActiveWorkbook.Path & "\*.xls"
    On Error GoTo 0
End Sub