Try these lines i use them and experience no flicker!
End With
Application.Cursor = xlWait
Application.EnableEvents = False
ActiveWorkbook.PrecisionAsDisplayed = False
Application.ScreenUpdating = False
***YOUR CODE***
Application.ScreenUpdating = True
ActiveWorkbook.PrecisionAsDisplayed = True
Application.EnableEvents = True
Application.Cursor = xlDefault
HTH
Simo
--
Message posted from
http://www.ExcelForum.com