HI,

Why won't this run? - It stops at Cells.Select

Sheets("Quote").Select
Cells.Select
Range("A21").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollRow = 1
Range("I2:R2").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("EMA Savings Calculator").Select
Cells.Select
Range("A14").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollRow = 1
Range("D2:F3").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets(Array("Customer - Rep Info", "Machine Selection")).Select
Sheets("Machine Selection").Activate
ActiveWindow.SelectedSheets.Visible = False

Thanks

--
Rich
-----------------------------------------------------------------------
Rich F's Profile: http://www.excelforum.com/member.php...nfo&userid=966
View this thread: http://www.excelforum.com/showthread.php?threadid=27836