Help: Cells.Select

[Rich F]

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

 

[Don Guillett]

This will copy all used cells in sheet3 from anywhere(NO selections) to the
activesheet!a1
Sub copyworksheetcells()
Sheets("sheet3").UsedRange.Copy Range("a1")'one line
End Sub

Sub copyworksheetcellsvalues()
Sheets("sheet3").UsedRange.Copy 'two lines
Sheets("sheet12").Range("a1").PasteSpecial Paste:=xlPasteValues
End Sub