Sub BatchDeleter() 
 
Dim fso, f, fil 
Dim pfad As String 
Dim wb As Workbook 
 
Set fso = CreateObject("Scripting.FileSystemObject") 
pfad = InputBox("Bitte Pfad zu den zu bearbeitenden Dateien angeben") 
If fso.FolderExists(pfad) Then 
    Set f = fso.GetFolder(pfad) 
    For Each fil In f.Files 
        If InStr(1, fil.Name, ".xls") > 0 Then 
            Set wb = Workbooks.Open(pfad) 
             
            'Hier Spalte löschen, z.B. Spalte A, erstes Blatt: 
            wb.Sheets(1).Range("A1").EntireColumn.Delete 
            wb.Save 
            wb.Close 
        End If 
    Next fil 
Else 
    MsgBox "Pfad nicht gefunden!" 
End If 
 
End Sub 

Sub BatchDeleter() 
  
Dim allfils As Collection 
Dim tmp As String 
Dim pfad As String 
Dim wb As Workbook 
Dim i As Integer 
 
pfad = InputBox("Bitte Pfad zu den zu bearbeitenden Dateien angeben") 
If Right(pfad, 1) <> "\" Then pfad = pfad & "\" 
tmp = Dir(pfad & "*.xls") 
Set allfils = New Collection 
 
Do While tmp <> "" 
    allfils.Add pfad & tmp 
    tmp = Dir() 
Loop 
 
For i = 1 To allfils.Count 
    Set wb = Workbooks.Open(allfils(i)) 
    'Hier Spalte löschen, z.B. Spalte A, erstes Blatt: 
    wb.Sheets(1).Range("A1").EntireColumn.Delete 
    wb.Save 
    wb.Close 
Next i 
  
End Sub