Select заменил на Activate, потом при обращении к Лист2 и Activate убрал (для возврата в Лист1 - оставил). Даже при Не скрытом Лист2 моргает при исполнении.
Что можно предпринять ?
Что можно предпринять ?
Код |
---|
Range("E9:BB11").Copy Worksheets("Лист2").Range("B7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Лист2").Sort.SortFields.Add Key:=Range("B7:AY7") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Лист2").Sort .SetRange Range("B7:AY9") .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With Sheets("Лист1").Activate End Sub |