ich hab Excel 2007 drauf, auf 2003 ging noch folgendes makro.
Was muss ich machen? dass das weiterin passt?
Vielen Dank Gruss volker
Sub AlleDruckenB2()
Dim iCounter As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Application.FileSearch
.LookIn = Range("B2").Value
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(iCounter), False
ActiveWorkbook.PrintOut
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
ERRORHANDLER:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub