Looping cannot be set to 1 mintues interval

Sub AUTOREFRECH()
Dim c As Range
Do Until Range("a1").Value = "STOP"
For Each c In Range("A7:A7")
c = c
Next
Loop
End Sub



i want to to is edit A7 and then enter every one to two minutes unit forever, is it possible to do it?

Sub AUTOREFRECH()
Dim c As Range
For Each c In Range("A7:A7")
c = c
Next
End Sub

A7 B7 C7
A 0.01 0.02

the dataset is from website, and changing with time, but this excal cannot update automaticly, onlyway is edit A7, unchange A, and then enter again, the new value of B7 and C7 will update.

so i add the macao that hope can refresh automately every minitute, let the data move. sorry for my poor english adn thank for your help

Sorry , how to add Application.Wait Now + TimeValue("00:00:01") in inside?

Sub AUTOREFRECH()
Dim c As Range
For Each c In Range("A7:A7")
c = c
Next
End Sub

Thnak you so much, arkadi, is work.. thanks