シート選択について

質問

いつもお世話になっております。

エクセルでシートを定時（4回）データを更新させ、
更新までの間、シートを自動で選択していくPGを作成したのですが、
エクセルを開くと固まってしまいます。
どうかご指導のほどよろしくお願いします。
Private Sub WorkBook_Open()

Dim Update1 As Variant
Dim Update2 As Variant
Dim Update3 As Variant
Dim Update4 As Variant
Dim Owarijikan As Variant
Call DataLoad

Update1 = ("08:00:00")
Owarijikan = Update1
SheetLoop (Owarijikan)

Application.OnTime TimeValue(Update1), "DataLoad"
Update2 = ("10:00:00")
Owarijikan = Update2
SheetLoop (Owarijikan)
Application.OnTime TimeValue(Update2), "DataLoad"
Update3 = ("15:00:00")
Owarijikan = Update3
SheetLoop (Owarijikan)
Application.OnTime TimeValue(Update3), "DataLoad"
Update4 = ("16:00:00")
Owarijikan = Update4
SheetLoop (Owarijikan)
Application.OnTime TimeValue(Update4), "DataLoad"
End Sub
'DataLoadはデータ更新のプロシージャです。
--------------------------------
Sub SheetLoop()

Dim Jikan As Variant
Dim Owarijikan As Variant

Jikan = Time
Owarijikan = Sheet8.Cells(5, 3).Value
Do Until Jikan > (Owarijikan)
Application.OnTime TimeValue(Jikan), "Select11"
Jikan = Jikan + TimeValue("0:0:05")
Application.OnTime TimeValue(Jikan), "SelectC"
Jikan = Jikan + TimeValue("0:0:05")
Application.OnTime TimeValue(Jikan), "Select12"
Jikan = Jikan + TimeValue("0:0:05")
Application.OnTime TimeValue(Jikan), "Select13"
Jikan = Jikan + TimeValue("0:0:05")
Application.OnTime TimeValue(Jikan), "SelectC"
Jikan = Jikan + TimeValue("0:0:05")
Application.OnTime TimeValue(Jikan), "Select16"
Jikan = Jikan + TimeValue("0:0:05")
Application.OnTime TimeValue(Jikan), "SelectC"
Jikan = Jikan + TimeValue("0:0:05")
Loop
End Sub
’実行するプロシージャSelectXXはシートを選択するプロシージャです。

以上よろしくお願いします。

回答No.1

o_chi_chi · ベストアンサー

コンパイルしてエラーがないかどうか確認してください。

SheetLoop (Owarijikan)
コール側は引数ありですが、実際のプロシージャは引数がありません。

お礼

返事遅くなってすみません。
コンパイルした結果、ミスが発見されました。
おかげで実行できるようになりました。
ありがとうございます。