I don't know about the multiple workbooks part, but

It is generally not necessary to select something, and
you have a lot of selection going on. Example.

Rows("1:13").Select
Selection.Delete Shift:=xlUp
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("A:D").Select
Range("A57:B378").Select
Selection.ClearContents

I think can be reduced to
Rows("1:13").Delete Shift:=xlUp
Columns("A:D").EntireColumn.AutoFit
Range("A57:B378").ClearContents

The have a lot of formatting going on in your recorded
macro. Check that you need all of it, frequently things
get included that aren't really being changed.

try using something like

With Range("A3:B324")
.font.ColorIndex = 2
.interior.colorindex = 3
.interior.pattern = xlSolid
.Font.Bold = True
End With

instead of `

Range("A3:B324").Select
Selection.Font.ColorIndex = 2
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Selection.Font.Bold = True

---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"christine" wrote in message ...
Tom, it works with or without the sreenupdating