Please Help! Insert Header VBA only working on one wb

[StephanieLilly]

I have a macro (see below) that is supposed to open each workbook in a specified folder and insert a header row. The macro is opening each workbook, however it is only creating the header in the first workbook it opens...? Any help correcting this would be greatly appreciated! Thank you

Sub InsertHeader()
    Application.DisplayAlerts = False
    Dim strFilename As String
    Dim strPath As String
    Dim wbMaster As Workbook
    Dim wsMaster As Worksheet
    Dim wbFiles As Workbook

    Set wbMaster = ThisWorkbook
    Set wsMaster = wbMaster.Sheets(1)
    strPath = "C:\Users\Me\Desktop\New folder\"
    strFilename = Dir(strPath & "*.xlsx")

    Do While strFilename <> ""
        Set wbFiles = Workbooks.Open(strPath & strFilename, False)
        wbFiles.Sheets(1).Rows(RowIndex:=1).Insert
        wbFiles.Sheets(1).Range("A1:B1") = Array("Name", "Number")
        wbFiles.Close savechanges:=True
        strFilename = Dir
    Loop
    Application.DisplayAlerts = True
End Sub

[buran]

Your code works 100% fine for me. I created test folder with several workbooks in it and it insert row and add header in all of them.