How to get a macro to update the document?

[JenniferMurphy]

I have a macro that changes the colors in the selected text. Before we upgraded to Win 10 and Office 365, I'm pretty sure the page used to show the results as the marco operated. Now it doesn't until I exit the macro.

What command do I need to execute in the macro to get it to show the results while the macro is still working?

In Excel, I think the command is something like Activesheet.refresh, but I can't even find that.

Thanks

 

[JenniferMurphy]

I believe this is in Word...

Try adding DoEvents after the If MsgBox... line.

Thank you, Rory. That did it. Here's the final (test) code:

Sub RandColorsTemp()

Dim RGBRed As Long:    RGBRed = RGB(255, 0, 0)
Dim RGBGreen As Long:  RGBGreen = RGB(0, 255, 0)
Dim NextColor As Long
Dim Char As Range
Dim msg As String

'Application.ScreenUpdating = True
NextColor = RGBRed
For Each Char In Selection.Characters
  If NextColor = RGBRed Then
    NextColor = RGBGreen
  Else
    NextColor = RGBRed
  End If
  Char.Font.Color = NextColor
  msg = "'" & Char & "' done, continue?"
  If MsgBox(msg, vbYesNo) <> vbYes Then Exit For
  DoEvents
Next Char

End Sub

I also commented out the Application.ScreenUpdating statement, which doesn't appear to be necessary.

Thank you

 

[JenniferMurphy]

PS: Is there a reason you chose to put the DoEvents after the If statement rather than immediately after the Char.Font.Color statement?

I moved it up there and it seems to work the same:

For Each Char In Selection.Characters
  If NextColor = RGBRed Then
    NextColor = RGBGreen
  Else
    NextColor = RGBRed
  End If
  Char.Font.Color = NextColor
  DoEvents
  msg = "'" & Char & "' done, continue?"
  If MsgBox(msg, vbYesNo) <> vbYes Then Exit For
  DoEvents
Next Char