Screen flashing
I have a macro that performs a certain set of tasks every second. Annoyingly
it also makes my screen flash every second, despite screen updating being
set to false during activity. I'd be grateful for any observations anyone
might have on this...
Many thanks
tp
Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)
'
Application.ScreenUpdating = False
'On Error GoTo error_stop
With Sheets("WMP").Range("BL4:bx64")
.Replace What:="=", Replacement:="$$$=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
With Sheets("Sheet1")
Range("Y3:AA53").Select
ActiveWorkbook.XmlMaps("java_Map").DataBinding.Ref resh
End With
With Sheets("WMP").Range("a5:m5")
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Application.CutCopyMode = False
End With
With Sheets("WMP").Range("a4:m4")
.Copy
End With
With Sheets("WMP").Range("a5:m5")
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
With Sheets("WMP").Range("BL4:bx64")
.Replace What:="$$$=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
If Sheets("WMP").Range("AM1") < Sheets("WMP").Range("AS1") Then
With Sheets("WMP").Range("AS1")
.Copy
End With
With Sheets("WMP").Range("AM1")
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End If
Range("AQ1").Select
Application.ScreenUpdating = True
Exit Sub
error_stop:
Call EndTimer
End Sub
Sub StartTimer()
TimerSeconds = 1 ' how often to "pop" the timer.
TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)
End Sub
Sub EndTimer()
KillTimer 0&, TimerID
End Sub
|