Word application screenupdating false not working Floyd county chat room

Range("$I

Range("$I$1") _ , False, False, False, False, , False PVTotal = Application. Sum(Range("B2", "B" & Last Record Row)) Imp Total = Application. Range("$C$1", "$C" & Last Record Row), False, True, , sht. I set it to False every time I use "select" or "activate", but it still not working, please help!! Status Bar = "Please be patient..." Dim Rating As Variant, sht As Worksheet, Last Record Row As Long, i As Integer, Last Row As Long Rating = Input Box("Please Provide Weather Rating (Any Number Between 1 and 4)", "Input Needed") If Rating 4 Then Msg Box "Invalid Value, Please Enter A Valid Number!

||

Range("$I$1") _ , False, False, False, False, , False PVTotal = Application. Sum(Range("B2", "B" & Last Record Row)) Imp Total = Application.

Range("$C$1", "$C" & Last Record Row), False, True, , sht.

I set it to False every time I use "select" or "activate", but it still not working, please help!!

Status Bar = "Please be patient..." Dim Rating As Variant, sht As Worksheet, Last Record Row As Long, i As Integer, Last Row As Long Rating = Input Box("Please Provide Weather Rating (Any Number Between 1 and 4)", "Input Needed") If Rating 4 Then Msg Box "Invalid Value, Please Enter A Valid Number!

Word does not need to display itself in order to run.

") _ , False, False, False, False, , False PVTotal = Application. Sum(Range("B2", "B" & Last Record Row)) Imp Total = Application.

Range("$C

Range("$I$1") _ , False, False, False, False, , False PVTotal = Application. Sum(Range("B2", "B" & Last Record Row)) Imp Total = Application. Range("$C$1", "$C" & Last Record Row), False, True, , sht. I set it to False every time I use "select" or "activate", but it still not working, please help!! Status Bar = "Please be patient..." Dim Rating As Variant, sht As Worksheet, Last Record Row As Long, i As Integer, Last Row As Long Rating = Input Box("Please Provide Weather Rating (Any Number Between 1 and 4)", "Input Needed") If Rating 4 Then Msg Box "Invalid Value, Please Enter A Valid Number!

||

Range("$I$1") _ , False, False, False, False, , False PVTotal = Application. Sum(Range("B2", "B" & Last Record Row)) Imp Total = Application.

Range("$C$1", "$C" & Last Record Row), False, True, , sht.

I set it to False every time I use "select" or "activate", but it still not working, please help!!

Status Bar = "Please be patient..." Dim Rating As Variant, sht As Worksheet, Last Record Row As Long, i As Integer, Last Row As Long Rating = Input Box("Please Provide Weather Rating (Any Number Between 1 and 4)", "Input Needed") If Rating 4 Then Msg Box "Invalid Value, Please Enter A Valid Number!

Word does not need to display itself in order to run.

", "$C" & Last Record Row), False, True, , sht.

I set it to False every time I use "select" or "activate", but it still not working, please help!!

Status Bar = "Please be patient..." Dim Rating As Variant, sht As Worksheet, Last Record Row As Long, i As Integer, Last Row As Long Rating = Input Box("Please Provide Weather Rating (Any Number Between 1 and 4)", "Input Needed") If Rating 4 Then Msg Box "Invalid Value, Please Enter A Valid Number!

Word does not need to display itself in order to run.

Don’t forget to set your Screen Updating property back to True when you’re done.

He is president of Sharon Parq Associates, a computer and publishing services company. Spend more time working and less time trying to figure it all out!

Check out Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? If you use a later version of Word, visit our Word Tips site focusing on the ribbon interface.

The idea is to use the first line near the beginning of your macro, and then use the second line near the end.

Thus, the main body of your macro can do its work behind the scenes without the necessity of stopping to update the screen.