ScreenUpdating

不顯示執行過程,只顯示結果。
Application.ScreenUpdating = False          'Disable Screen Updating

Application.ScreenUpdating = True

Remarks:
最後要Enable Screen Updating