How to select any file in folder name (Left = "Final Test") then kill the file

Hello All,
I'm looking for code how to open any files which Left 10 chars = "Final Test", do something then kill this file after done.

Dim sDir As String
Dim sFname As String
Dim thswbk
Dim actvbk
Set thswbk = ThisWorkbook
Application.ScreenUpdating = False

sDir = "C:\Mycomputer\Testing"
sFname = Dir(sDir & "\*.xls")   '''I want to open any file contains Left 10 Chars = "Final Test"
Set thswbk = ThisWorkbook

Application.DisplayAlerts = False
Do While sFname <> ""
    
    Workbooks.Open sDir & "\" & sFname, Format:=1, Local:=True
    Set actvbk = ActiveWorkbook
    actvbk.Activate
    
Call Macro1
'''I also want to kill the actvbk
    sFname = Dir
Loop

thswbk.Activate
Application.ScreenUpdating = True

Regards,
tt3

Hi all

Try this optimised code

Sub test()
  Dim sDir As String, sFname As String
  Dim thswbk As Workbook, actvbk As Workbook
  Set thswbk = ThisWorkbook
  Application.ScreenUpdating = False

  sDir = "C:\Mycomputer\Testing"
  sFname = Dir(sDir & "\Final Test*.xls")  ' I want to open any file contains Left 10 Chars = "Final Test"

  Application.DisplayAlerts = False
  Do While sFname <> ""
    Set actvbk = Workbooks.Open(sDir & "\" & sFname, Format:=1, Local:=True)
    Call Macro1
    actvbk.Close
    ' Delete file
    kill sDir & "\" & sFname
    sFname = Dir
  Loop
  thswbk.Activate
  Application.ScreenUpdating = True
End Sub

Hi Jindon & BrianM45:
Thank you very much.

How about to kill the file. Please help

Call Macro1
'''I also want to kill the actvbk ("Final Test")
sFname = Dir

    Workbooks(sFname).Close SaveChanges:=False
    Kill sFname   '''This line sometime does work; sometime this line does not work
    sFname = Dir

Regards,
tt3