Range Dim o Frm As frm Progress Dim Portion Done As Double On Error Go To Err_Exit str Text To Insert = "Annual bonus rates for the last five years" str Text To Find = "Discharge Pack" Set doc To Open = Application. Sub Insert Text() Dim Doc As Document, str Text To Insert As String, str Text To Find As String Dim i As Long, doc To Open As File Dialog, s Hght As Single Dim rng To Search As Word. interactive macros, long calculations) to let the user know that the macro is still running and that Excel has not crashed.Here are some links to people who have also noticed this problem: Show = -1 Then Set o Frm = New frm Progress If doc To Open.
I set it to False every time I use "select" or "activate", but it still not working, please help!!
Hi all, Before I start, I will admit I posted this in a forum that helps me a lot with another Office product, but as of this post they were not able to shed any light on this issue.
I created the code below which does what it was written for, BUT the screen updates whilst it runs.
Screen Updating If b Scr Update = True Then Application. Unprotect Password:="young C" If Msg Box("This button will save this month's checklist data into the database. I would store the previous value of properties like Calculation though, and re-instate them, as in the OP. My client complained about this, so I had to change every statement to "if not (application.screenupdating = true) then application.screenupdating = true".
Copy On Error Resume Next With Worksheets("Database"). Select On Error Go To 0 If Not Database_Date Is Nothing Then Application. Protect Password:="young C" Else Msg Box ("Please be sure all information is correct before saving it.") End If If Not Application. Screen Updating = b Scr Update End Sub Private Sub Workbook_Open() Worksheets("Main Menu"). Screenupdating = False is not working and therefore the screen changes when the user clicks the button assigned to this get rid of all the pointless activates and selects and gotos 1) slowing it down, 2) causing the flickering.