This will not only make the process invisible, it will also make the
whole thing faster since the computer doesn't have to spend so much
time displaying the changes. I have a program that used to take 30
seconds that now takes about 3 because of this:

sub manysheets()

Application.ScreenUpdating = False

sheets("1").select
'copy cell A1 and paste in B1
sheets("2").select
'copy cell A1 and paste in B1
sheets("3").select
'any various functions

Application.ScreenUpdating = True

end sub



---
Message posted from http://www.ExcelForum.com/