View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
mike allen mike allen is offline
external usenet poster
 
Posts: 11
Default "running..." message

great info. thanks. I use this type of code often:

sheets("1").range("a1").Copy 'this is a formula
sheets("2").range("c3").PasteSpecial Paste:=xlValues 'this needs to be hard
number

i tried your way of:
sheets("2").range("c3").value=sheets("1").range("a 1").value
as a replacement. I assume this is exactly the same thing?

by not using ...Select or ...Copy makes program faster, but using:
sheets("2").protect
still flips to sheet2 (from sheet1 for instance), then back to sheet1.
i know i can use:
Application.ScreenUpdating = False
'code
Application.ScreenUpdating = True
but it seems the entire program would be more efficient if i didn't need
this at all, i.e. going to sheet2 would not occur upon: sheets("2").protect
any ideas? thanks

"Paul B" wrote in message
...
Mike, you can do it like this

Application.ScreenUpdating = False
'your code here
Application.ScreenUpdating = True

or a better way would be to do it without selecting the sheets like this
Sheets("1").Range("B1").Value = Sheets("1").Range("A1").Value


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 97
** remove news from my email address to reply by email **
"mike allen" wrote in message
...
I have a routine that selects sheet after sheet doing various commands

an
each sheet. I would prefer to NOT see the rapid flashing of sheet after
sheet being selected/opened. Can I do this in the background (not
viewable), or at least have a "cover" that hides the flashing of sheet
selections that reads: "running, be patient, please."? thanks

sub manysheets()
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
end sub