Try this
[VBA]Sub AllFilesInSameFoler()
Dim SubFolderName As String, FilePath, fso As Object, fld As Object, fil As Object
Dim fName As String, WB As Workbook
Set fso = CreateObject("Scripting.FileSystemObject")
SubFolderName = ThisWorkbook.Path
FilePath = ActiveWorkbook.Path
fName = ActiveWorkbook.Name
Set fld = fso.GetFolder(SubFolderName)
For Each fil In fld.Files
If Right$(FilePath, 1) <> "\" Then FilePath = FilePath & "\"
If Right(fil.Name, 5) = ".xlsx" Then
If fil.Name <> fName Then

Set WB = Workbooks.Open(FilePath & fil.Name, UpdateLinks:=0)
ActiveWorkbook.Sheets(1).Rows("1:4").Delete Shift:=xlUp

Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End If
Next fil
End Sub
[/VBA]