App application screenupdating
I'm going to try to perfect the technique, but if it doesn't get better from here, I'll work with what I have.
I don't know the whole code but try adding app.screenupd after For 1=3to3111 and before Next i for Color Fill, then get rid of the screenupd in Automatic. without knowing that, I cannot know if you need screenupd there. Then, I need to update the screen in order to view the new data.Often times ill make a sub routine that kinda gets me back to default mode.It turns on screen updating, auto calc, maximizes the window, makes the application visible, etc. Then I can just run that if things go bonkers before ive coded any error trapping. It bears mentioning in this case that the message boxes give that wild effect if you drag them while Screen Updating is False, very sloppy, all the more reason to set things back to normal as you go. Screen Updating = True Msg Box "Screen Updating is on." Range("A1: A3"). Screen Updating Three End Sub Sub Three() Range("A3").Value = "Three" Msg Box "Screen Updating is " & Application.