[akteco]

Hopefully someone can help me with this, I'm sure it's a quick fix. I have a macro that basically copies information from one sheet to another. Unfortunately, the screen blinks for every copy. Is there a way to stop that?

Here's my code:

Sub Timer()
Application.ScreenUpdating = False
Application.OnTime Now + TimeValue("00:10:00"), "Timer"
'Select / Copy Row 2 on Historical Data Worksheet
ActiveWorkbook.UpdateLink Name:= _
"\\ecc_fp1\vol1\SHARDATA\GENERATION_PLANNING\kenmod.xls", Type:=xlExcelLinks
Sheets("Historical_Data").Select
Rows("2:2").Select
Selection.Copy
'Select Row 3 on Historical Data Worksheet, insert line
Sheets("Historical_Data").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Sheets("Historical_Data").Select
Rows("2:2").Select
Selection.Copy
'Select Row 3 on Historical Data Worksheet, paste copy of Row 2
Sheets("Historical_Data").Select
Rows("3:3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'Select Last Row on Historical Data Worksheet, erase data to make room if worksheet is full.
Sheets("Historical_Data").Select
Rows("65536:65536").Select
Selection.ClearContents
'copy historical data to graphing worksheet
Sheets("Historical_Data").Select
Rows("3:290").Select
Selection.Copy
Sheets("Load vs Forecast").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Rows("1:288").Select
Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'save workbook - removed
'Select Cell A1 to scroll back to top of Page
Sheets("Exec Summary").Select
Range("A1").Select
'autocorrect errors
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Redesigned Gen Summary Page").Select
Range("A6").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!RC"
Range("A6").Select
Selection.AutoFill Destination:=Range("A6:A10"), Type:=xlFillDefault
Range("A6:A10").Select
Range("A11").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[1]C"
Range("A11").Select
Selection.AutoFill Destination:=Range("A11:A17"), Type:=xlFillDefault
Range("A11:A17").Select
Range("B11").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[1]C"
Range("B11").Select
Selection.AutoFill Destination:=Range("B11:B17"), Type:=xlFillDefault
Range("B11:B17").Select
Range("D6").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!RC"
Range("D6").Select
Selection.AutoFill Destination:=Range("D613"), Type:=xlFillDefault
Range("D613").Select
Range("E6").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!RC"
Range("E6").Select
Selection.AutoFill Destination:=Range("E6:E13"), Type:=xlFillDefault
Range("E6:E13").Select
Range("D14").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-1]C[3]"
Range("E14").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-1]C[3]"
Range("G6").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!RC"
Range("G6").Select
Selection.AutoFill Destination:=Range("G6:H6"), Type:=xlFillDefault
Range("G6:H6").Select
Selection.AutoFill Destination:=Range("G6:H11"), Type:=xlFillDefault
Range("G6:H11").Select
Range("G12").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("G12").Select
Selection.AutoFill Destination:=Range("G12:H12"), Type:=xlFillDefault
Range("G12:H12").Select
Range("G13").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-5]C[3]"
Range("H13").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-5]C[3]"
Range("G14").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-2]C[3]"
Range("G14").Select
Selection.AutoFill Destination:=Range("G14:H14"), Type:=xlFillDefault
Range("G14:H14").Select
Range("D16:H16").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[13]C[-3]"
Range("D17:H17").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[6]C[-3]"
Range("D18:H18").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[6]C[-3]"
Range("D19:H19").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[3]C[-3]"
Range("A20:E20").Select
Selection.ClearContents
Range("B17").Select
Selection.Font.ColorIndex = 2
Range("E13").Select
Selection.Font.ColorIndex = 2
Range("E14").Select
Selection.Font.ColorIndex = 2
Range("H11").Select
Selection.Font.ColorIndex = 2
Range("H12:H14").Select
Selection.Font.ColorIndex = 2
ActiveWindow.SmallScroll Down:=-15
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
'Sheets("Historical_Data").Select
'Range("J2").Select
'Sheets("Data Points").Select
'Range("G7").Select
'ActiveCell.FormulaR1C1 = "=VALUE(RIGHT('Generation Summary'!R[21]C[-6],4))"
'Range("J8").Select
'ActiveCell.FormulaR1C1 = "=VALUE(RIGHT('Generation Summary'!R[14]C[-9],4))"
'Range("J9").Select
'Sheets("Historical_Data").Select
'Range("H2").Select
'Hardee Resync
Sheets("Redesigned Gen Summary Page").Select
Application.ScreenUpdating = False
Range("G12").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("G13").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("G14").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("G16").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("G17").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("H12").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("H13").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("H14").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("H15").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("H16").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("H17").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[-6]C[3]"
Range("D18:H19").Select
Selection.ClearContents
Range("D1517").Select
Selection.ClearContents
Range("H12:H16").Select
Selection.Font.ColorIndex = 6
'Stats on the bottom of Gen Sum
Range("D18:E18").Select
ActiveCell.FormulaR1C1 = "=RIGHT('Generation Summary'!R[11]C[-3],16)"
Range("A19").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[8]C"
Range("A20").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[6]C"
Range("E19:H19").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[4]C[-4]"
Range("E20:H20").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[4]C[-4]"
'Cogen and COT
Range("D15").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[1]C[6]"
Range("E15").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[1]C[6]"
Range("D16").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[2]C[6]"
Range("E16").Select
ActiveCell.FormulaR1C1 = "='Generation Summary'!R[2]C[6]"
Range("E17").Select
'Back to Home
Sheets("Exec Summary").Select
Range("A1").Select
' output the current time to cell D13
'Range("D12").Value = CStr(Time)
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub


Thanks.