Excel: flashing macro


Hi out there. I have this crazy macro that I use. There are ten of them that transfer info from one part of the sheet to another. When I active the macros there is a whole heap of flashing backwards and forwards as it does it’s transfer. Would there be a way of fixing it so it runs a bit smoother? Many thanks Narelle [FONT=Times New Roman] Sub Result_R1() ActiveSheet.Unprotect Password:="" ' Result_R1 Macro Range("M6").Select Selection.Copy Range("AE2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("B28").Select Application.CutCopyMode = False Selection.Copy Range("AF2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A28").Select Application.CutCopyMode = False Selection.Copy Range("AG2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("O1").Select Application.CutCopyMode = False Selection.Copy Range("AH2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E28").Select Application.CutCopyMode = False Selection.Copy Range("AI2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("K3").Select Application.CutCopyMode = False Selection.Copy Range("AJ2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C28").Select Application.CutCopyMode = False Selection.Copy Range("AK2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("F28").Select Application.CutCopyMode = False Selection.Copy ActiveWindow.ScrollColumn = 30 Range("AL2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("D28").Select Application.CutCopyMode = False Selection.Copy Range("AM2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G28").Select Application.CutCopyMode = False Selection.Copy Range("AN2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ' Result_clear Macro Range("A28:G28").Select Range("F28").Activate Selection.ClearContents Range("E28").Select ActiveSheet.Protect Password:="" End Sub [/FONT]


This question generated 35 answers. To proceed to the answers, click here.

This thread is current as of May 18, 2014.


For more resources for Microsoft Excel