Help: Cells.Select
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 |
All times are GMT +1. The time now is 10:26 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com