Need macro

[Abhijeet]

Hi

I want for this formula =RANDBETWEEN(1,10000) refresh every after 2 min for this I want macro please help for this

 

[Krishnakumar]

Hi

Try

Option Explicit
Dim NextTick As Date
Sub StartRefresh()
   
    GetRefreshed
End Sub
Private Sub GetRefreshed()
   
    Dim rngFormula  As Range
   
    Set rngFormula = Sheet1.Range("c3") '<<< adjust the range
   
    rngFormula.Calculate
   
    NextTick = Now + TimeValue("00:02:00")
    Application.OnTime NextTick, "GetRefreshed"
End Sub
Sub StopClock()
   
    On Error Resume Next
    Application.OnTime earliesttime:=NextTick, procedure:="GetRefreshed", schedule:=False
    On Error GoTo 0
End Sub

 

[Abhijeet]

Its not work please tell me

 

[Sam Mathai Chacko]

Abhijeet, based on what Kris has written, it is imperative that the code is run from a code module, and not from a sheet / workbook code module.

I've used Kris's code here (just changed the 2 minutes to 2 seconds cause I get bored easily )