【vba_excel】ソート

Dim myRng As Range
'ソート範囲
Set myRng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
'画面表示更新停止
Application.ScreenUpdating = False
'ソート
myRng.Sort Range("A1"), xlAscending, Header:=xlYes
'画面表示更新
Application.ScreenUpdating = True