Microsoft Office Forums - View Single Post - [Solved] Stop Macro button moving with cells

Logit · 09-20-2018, 11:52 AM

.
Here is another. It is called from ThisWorkbook_Open module. You should also
close it in ThisWorkbook_BeforeClose module ...

Code:

Option Explicit

Private eTime
Sub ScreenRefresh()
    With ThisWorkbook.Worksheets("Sheet1").Shapes(1)
        .Left = ThisWorkbook.Windows(1).VisibleRange(2, 2).Left
        .Top = ThisWorkbook.Windows(1).VisibleRange(2, 2).Top
    End With
End Sub

Sub StartTimedRefresh()
    Call ScreenRefresh
    eTime = Now + TimeValue("00:00:01")
    Application.OnTime eTime, "StartTimedRefresh"
End Sub

Sub StopTimer()
    Application.OnTime eTime, "StartTimedRefresh", , False
End Sub