scottleger4
New Member
- Joined
- Oct 3, 2016
- Messages
- 41
- Office Version
- 365
- Platform
- Windows
It seems that nearly all of the macros I coded in the previous version of Excel have had some significant performance degradation since we migrated over to 365 and windows 10. Even simple code to just select, copy, and paste takes an inordinate amount of time to run. The exact same code runs on my "old" machine on the exact same build on excel. Here is an example macro...
Sub Clear_Yesterday_Data_64Bit()
Windows("Prep Sheet 64-bit.xlsm").Activate
Sheets("DD").Select
Dim Lsheet As Worksheet
Set Lsheet = ActiveWorkbook.Worksheets("DD")
Dim AirportLoc As Range
Dim Airport As String
Set AirportLoc = Lsheet.Range("A2")
Do Until AirportLoc.Value = ""
Airport = AirportLoc.Text
Sheets(Airport).Select
Range("V3:V24").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("O3:O24").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("M3:M24").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("H30:H51").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K30:K51").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A59").Select
Set AirportLoc = AirportLoc.Offset(1, 0)
Loop
End Sub
Any ideas why the new "high performance" machine takes significantly longer to run the exact same macro on the exact same build of excel? Thanks in advance.
Sub Clear_Yesterday_Data_64Bit()
Windows("Prep Sheet 64-bit.xlsm").Activate
Sheets("DD").Select
Dim Lsheet As Worksheet
Set Lsheet = ActiveWorkbook.Worksheets("DD")
Dim AirportLoc As Range
Dim Airport As String
Set AirportLoc = Lsheet.Range("A2")
Do Until AirportLoc.Value = ""
Airport = AirportLoc.Text
Sheets(Airport).Select
Range("V3:V24").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("O3:O24").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("M3:M24").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("H30:H51").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K30:K51").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A59").Select
Set AirportLoc = AirportLoc.Offset(1, 0)
Loop
End Sub
Any ideas why the new "high performance" machine takes significantly longer to run the exact same macro on the exact same build of excel? Thanks in advance.