Bob,

NextDay macro is as under:

Sub NextDay()

Sheets("Summary").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields ("Zone").AutoSort _
xlAscending, "Zone"

Columns("H:H").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("C6:C45").Select
Range("C45").Activate
Selection.Copy
Range("H6").Select
ActiveSheet.Paste

Sheets("2148").Select
Columns("h:h").Select
Selection.Insert Shift:=xlToRight
Columns("e:e").Select
Selection.Copy
Columns("h:h").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save

End Sub


"Bob Phillips" wrote:

A simple test for me worked fine. Is there anything in the NextDay macro
that might be causing it to fail?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"R Kapoor" wrote in message
...
I am trying to execute the following given macro from the current
workbook.
The macro opens the workbook "2148.xls" and waits there. It does not
proceed
to run the macro "NextDay" as given in line number 3.

However, if I execute the entire macro step by step from Visual Basic
(using
F8) it works fine. What could be the problem? What is the solution.



Workbooks.Open Filename:="C:\Data\GLIF\2148.xls"
Windows("2148.xls").Activate
Application.Run "2148.xls!NextDay"
Sheets("2148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$51"
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets("Summary").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
ActiveWorkbook.Save
ActiveWorkbook.Close