Ok solved it with the help of dear kieranbop.
Came back to give the complete answer in case anyone would need this in future.
Create a Module and type this in it:
Sub RefreshFeed()
Application.ScreenUpdating = True
zInterval = "00:00:01"
Application.Calculate
zCurTime = Time() + TimeValue(zInterval)
Application.OnTime zCurTime, "RefreshFeed", zCurTime + TimeValue(zInterval)
ActiveWorkbook.RefreshAll
End Sub
In workbook type this:
Private Sub Workbook_Activate()
Call RefreshFeed
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.OnTime zCurTime, "RefreshFeed", , False
End Sub
And at last type this in your current sheet.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call RefreshFeed
End Sub
Bookmarks