Sub auto_click()
' auto_click Macro
' me
Dim row, int_link_cnt, Range As Integer
Dim var As Variant
int_link_cnt = 2
Range = Cells(2, "G").Value
Tmout = Cells(4, "G").Value
Set objShell = CreateObject("Wscript.Shell")
For row = 2 To Range
Cells(row, "C").Select
On Error Resume Next
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Cells(row, "D").Select
Selection.Style = "Good"
ActiveCell.FormulaR1C1 = "YES"
Cells(row, "E").Select
Selection.Style = "Good"
ActiveCell.FormulaR1C1 = Now()
On Error Resume Next
'intReturn = objShell.Popup("txt msg", timeout , "title", vbYesNo + vbQuestion)
intReturn = objShell.Popup("Timeout 1 sec Yes or NO!", 1, "Next link", vbYesNo + vbQuestion)
'intReturn = objShell.Popup("Timeout " & Tmout & " sec Yes or NO!", Tmout, " Next " & int_link_cnt & " link ", vbYesNo + vbQuestion)
'intReturn = objShell.Popup("Timeout " & Tmout & " sec Yes or NO!", Tmout, " Next " & int_link_cnt & " link ")
On Error Resume Next
int_link_cnt = 1 + int_link_cnt
If (intReturn = vbYes) Then
GoTo nextLink
End If
If (intReturn = vbNo) Then
GoTo kill
End If
nextLink:
Next row
kill:
End Sub