Programmering "sendkeys" kommando

jeg har et problem med sendkeys kommandoen. jeg har en makro der åbner en række excel ark som ligger i en given folder og for hver excelark der bliver åbnet skal der sendes en sendkey kommando. Derefter bliver arket lukket og samme procedure bliver kørt for næste ark. Mit problem er at de sendkeys komando jeg sender bliver ikke eksikveret i det ark som bliver åbnet, men isteden i det ark hvor makroen er skrevet? er der nogen der kan hjælpe? nedenfor er angivet den kode der er skrevet.

-------------
Private Sub CommandButton1_Click()
    Dim BP As String
    Dim fs, f, s, sf
    Dim ph As String
       
    BP = ActiveWindow.Caption
    Set fs = CreateObject("Scripting.FileSystemObject")
    ph = InputBox("Please type folder path")
    Set f = fs.GetFolder(ph)
    Set sf = f.Files
       
        For Each f In sf
            Workbooks.Open f, 0
            Application.SendKeys "%xe"", True"
            ActiveWindow.Close (False)
            Windows(BP).Activate
        Next
End Sub