C
Curt
trying to stop screen flicker with application events doesn't do it. the copy
and paste have done with auto filter etc. Have 8 other macros that do this
same action. They run one after the other till done. So screen flicker is
vivid. Screenupdateing is rejected. If I get this one can apply to other 8.
Thanks for any assistance
Sub One()
' One Macro
' Macro recorded 9/28/2007 by Curtiss A. Greer
'Application.EnableEvents = False
'Application.screenupdateing = False
Range("D4").AutoFilter Field:=1, Criteria1:="1 Horses"
' Application.EnableEvents = False
Range("A1:N104").Copy
Application.EnableEvents = False
Sheets("1").Select
Range("A1").Select
ActiveSheet.Paste
' Application.EnableEvents = True
Columns("E:L").ClearContents
Columns("A:A").ColumnWidth = 3.57
Columns("B:B").ColumnWidth = 11.29
Columns("C:C").ColumnWidth = 22.43
Columns("D").ColumnWidth = 15.14
Application.CutCopyMode = False
Range("G14").Select
Sheets("Data").Select
Selection.AutoFilter
Application.EnableEvents = True
'Application.screenupdateing = True
End Sub
and paste have done with auto filter etc. Have 8 other macros that do this
same action. They run one after the other till done. So screen flicker is
vivid. Screenupdateing is rejected. If I get this one can apply to other 8.
Thanks for any assistance
Sub One()
' One Macro
' Macro recorded 9/28/2007 by Curtiss A. Greer
'Application.EnableEvents = False
'Application.screenupdateing = False
Range("D4").AutoFilter Field:=1, Criteria1:="1 Horses"
' Application.EnableEvents = False
Range("A1:N104").Copy
Application.EnableEvents = False
Sheets("1").Select
Range("A1").Select
ActiveSheet.Paste
' Application.EnableEvents = True
Columns("E:L").ClearContents
Columns("A:A").ColumnWidth = 3.57
Columns("B:B").ColumnWidth = 11.29
Columns("C:C").ColumnWidth = 22.43
Columns("D").ColumnWidth = 15.14
Application.CutCopyMode = False
Range("G14").Select
Sheets("Data").Select
Selection.AutoFilter
Application.EnableEvents = True
'Application.screenupdateing = True
End Sub