Excel macro application screenupdating not working
My macro is updating the field codes of the documents.
Value Ex Fn List = Ex Fn List & Excel FN & "|" If Excel FN "" Then 'Declare new doc as b Doc Set b Doc = Documents. On Time Now Time Serial(0, 0, 10), "Clear Status" End If Loop Until Excel FN = "" Set c = . Show End With Else Msg Box ("Document " Word FN " does not contain additional Forms") End If End With If Excel Was Not Running Then o XL. Close End If 'Make sure you release object references. And I still don't know why you are creating a whole new word application when it doesn't seem to do anything.
If this sounds like you, then Public Sub Add Content To Sheet() Dim start Time As Double start Time = Timer Dim r As Excel. Range("A1: P30") Dim i As Long Dim repeat As Long Dim cell As Excel. Range For repeat = 1 To 30 For Each cell In r cell. Value Mod 2 = 0) Then ' if i is even, color the cell white cell.