Excelのセルに埋め込んだハイパーリンクを自動巡回(VBA)

「議員サイトアクセスランキング」というのを長年やってます。議員のサイト数に何倍かのクリック数で、爺になるほどにつかれます。それで、楽をしようとVBAをやっこらせぇ〜ということで作りました。
条件は以下の通り

  • OSは、Windows7(64)
  • Excelは、2007
  • ハイパーリンクが埋め込まれたのはA列の1番目からn番目まで
  • 起動すると入力を求め、最終行を入力して範囲を決める
  • その時、0以下を入力するとVBA終了
  • 該当URLが存在しないときは、エラー処理をして作業続行、同時にイミディエイトウィンドウにセル位置を書き出しておく
  • 変数、定数などの宣言を行わず横着してます。アクティブ・シート上で動きます。

Sub 巡回()
On Error GoTo rsm:
n = InputBox("データ最終行入力"): '0以下入力で終了
If n > 0 Then
For j = 1 To n
t = "A" & Trim(j)
Range(t).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
tsugi:
Next j: 'for j=1 to n
End If
Exit Sub
rsm:
Debug.Print t,: 'エラーが起こった場所をイミディエイトウィンドに表示
Resume tsugi:
End Sub

この結果、デフォルトのネットブラウザに次々と該当URLがタブ表示される…はずです。