Excel97 VBA から IEを起動

Excelファイルを開くと、下記のように表示されます。
好きなＵＲＬ，コメントを登録します



ＩＥ起動のボタンを押します。



ＩＥが連続起動されます。



'------------------------------------------------------------
'IE5.0 連続起動テスト
'お気に入りページを連続で開く
'朝一番で、５・６ヶ所、巡回している人向け
Sub IE_OPEN_TEST()

    Dim oIE    As Object
    Dim nYLINE As Integer
    Dim time3  As Date
    
    '確認を取る、、、
    If MsgBox("ＩＥを起動します", vbYesNo) = vbNo Then
        Exit Sub
    End If

    'IEのオブジェクトを作成する
    Set oIE = CreateObject("InternetExplorer.application")

    '見えるようにする、、、逆に見えなくて巡回もあり？
    oIE.Visible = True
    
    '見出しを抜かした２行目から、ＵＲＬを開く
    nYLINE = 2
    While Len(Cells(nYLINE, 1) & "") <> 0
        
        Cells(nYLINE, 1).Select
        DoEvents
        
        'セルに代入されているアドレスを表示する ,1で新しいウインドウ
        oIE.Navigate Cells(nYLINE, 1), 1
        
        'ここで無効なアドレス（読めなかったとき）の処理を入れたい
        '今は、手抜き、、、

        '3秒後を計算して、待つ  待たなくてもいいんだけど、、、
        time3 = DateAdd("s", 3, Now())
        Do While Now() < time3
            DoEvents
        Loop

        nYLINE = nYLINE + 1
        
    Wend
    oIE.Quit '一番始めの空のＩＥを閉じる、、、

    '行儀良くクリアした時、不正な処理で落ちたことあり、、なぜ？
    'oIE = Nothing

End Sub
'-------------------------------------

自動巡回ソフトを目標に、正月休みにトライしたのですが、
ＩＥを開くのと、ＵＲＬ指定しかわからなかった。。。
次のステップは、ソース（ＨＴＭＬ）をＨＤに保存し、
リンク先を読み込み、階層処理。。。

質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)

感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 あなたのお名前（ニックネーム）:さん 返信は？: 不用(HP更新を待つ) , E-mail→ アドレス:に返事をもらいたい ここに 感想や質問・要望・苦情など 三流君へ送るメッセージを 気軽に書いてください (感想や質問・要望・苦情はHPで記事に載せることがあります。)

急ぎで連絡がほしい、そんな時は:[三流君連絡先]に連絡してください。

番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)