Thread: error: Code Execution has been interrupted
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Joshua Fredrickson Joshua Fredrickson is offline
external usenet poster
  
Posts: 2
Default error: Code Execution has been interrupted
Any ideas?

Thanks again and sorry if two days is to early to bump this thread.

Joshua

"Joshua Fredrickson" wrote in message
...
Some may be reluctant to open a .txt file for some reason so here is
macro:

Sub XfmrRept()
'
' XfmrRept Macro
' Macro recorded 12/17/2001 by C20656
'
' Keyboard Shortcut: Ctrl+t
'
ChDir "G:\EXCEL50\Xfmrrept"
Workbooks.Open Filename:= _
"\\DS5\SYS2\STORES\GROUP\EXCEL50\Xfmrrept\kuhlman. xls"
Workbooks.Open
Filename:="\\DS5\SYS2\STORES\GROUP\EXCEL50\Xfmrrep t\ermco.xls"
Workbooks.Open Filename:= _
"\\DS5\SYS2\STORES\GROUP\EXCEL50\Xfmrrept\xfmrall. xls"
Windows("ermco.xls").Activate
Sheets("Transformer Issues and Transfer").Select
Sheets("Transformer Issues and Transfer").Copy
Befo=Workbooks("xfmrall.xls").Sheets(1)
Windows("kuhlman.xls").Activate
Sheets("Transformer Issues and Transfer").Select
Sheets("Transformer Issues and Transfer").Copy
Befo=Workbooks("xfmrall.xls").Sheets(1)
Windows("ermco.xls").Activate
ActiveWindow.Close
Windows("kuhlman.xls").Activate
ActiveWindow.Close
ActiveWindow.TabRatio = 0.568
Sheets("Transformer Issues and Tran (3)").Select
Sheets("Transformer Issues and Tran (3)").Name = "Issues &
Transfers-Kuhlman"
Sheets("Transformer Issues and Tran (2)").Select
Sheets("Transformer Issues and Tran (2)").Name = "Issues &
Transfers-ERMCO"
Sheets("Transformer Issues and Transfer").Select
Sheets("Transformer Issues and Transfer").Name = "Issues &
Transfers-All
Xfmrs"
Sheets("Issues & Transfers-Kuhlman").Select
Workbooks.Open Filename:= _
"\\DS5\SYS2\STORES\GROUP\EXCEL50\Xfmrrept\xfmr0102 05.xls"
Rows("1:4").Select
Selection.Copy
Application.CutCopyMode = False
Sheets(Array("Issues & Transfers-Kuhlman", "Issues & Transfers-ERMCO",
_
"Issues & Transfers-All Xfmrs")).Select
Sheets("Issues & Transfers-Kuhlman").Activate
Rows("1:4").Select
Selection.Copy
Windows("xfmrall.xls").Activate
Sheets(Array("Issues & Transfers-Kuhlman", "Issues & Transfers-ERMCO",
_
"Issues & Transfers-All Xfmrs")).Select
Sheets("Issues & Transfers-Kuhlman").Activate
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Rows("5:40").Select
Selection.RowHeight = 15
Range("A5").Select
Sheets(Array("Issues & Transfers-Kuhlman", "Issues & Transfers-ERMCO",
_
"Issues & Transfers-All Xfmrs")).Select
Sheets("Issues & Transfers-Kuhlman").Activate
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Sheets("Issues & Transfers-All Xfmrs").Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$4:$4"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Sheets("Issues & Transfers-ERMCO").Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$4:$4"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Sheets("Issues & Transfers-Kuhlman").Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$4:$4"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Windows("xfmr010205").Activate
ActiveWindow.Close
End Sub




Reply With QuoteReply With Quote