Excel2010 VBAについて

質問

以下のソースを書いて実行したのですが
「実行エラー'1004' WorksheetFunctionクラスのVlookupプロパティを取得できません」
と表示されます

Sub 時刻表示()
'日本の時間と選択した年の時刻・時差を1秒ごとに表示しなおす
Dim City As String
Dim Jisa As Long

Application.ScreenUpdating = False

City = Range("C6").Value
Jisa = WorksheetFunction.VLookup(City, _
Worksheets("都市リスト").Range("B3:C14"), 2, False)

Range("E7").Value = Jisa
Range("C4").Value = Now
Range("C7").Value = DateAdd("h", Jisa, Now)
Range("C4, C7").NumberFormat = "m/d h:mm:ss"

Application.ScreenUpdating = True
Application.OnTime Now + TimeValue("0:00:01"), "時刻表示"

End Sub

Sub 時刻表示終了()
'時計を止める
Application.OnTime Now + TimeValue("0:00:01"), "時刻表示", Schedule:=False

End Sub

デバックをすると
Application.OnTime Now + TimeValue("0:00:01"), "時刻表示", Schedule:=False

がマーカーで引かれます
一応本通りには打ったと思うのですが、、、。

どこが間違えているか教えてください

回答No.1

noname#217196 · ベストアンサー

ためしに、こちらの環境で当該コードを実行したところ、ふつうに動きます。
実行エラーは、Ｃ６セルに都市名を入力していないワークシートから当該マクロを実行しているために起きていそうです。
デバッグは、一行ずつステップオーバー実行して、実行のたびに変数の値に期待どおりの値が代入されているかどうか、ローカル変数ウォッチ・ビューで確認するといいでしょう。

時刻表示終了マクロにマーカーが引かれるとすれば、時刻表示終了マクロをマクロの表示ダイアログウィンドウを開いてから実行したときだと思われます。いったんダイアログウィンドウにフォーカスが移動したことで、ＯｎＴｉｍｅが停止しているのにさらに停止しようとしてエラーを引き起こすようです。マクロの表示ダイアログのオプションボタンをクリックしてショートカットキーを割り当ててから、先に時刻表示マクロ実行してから、ショートカットキーによる時刻表示終了マクロ実行であれば、エラーなしで終了できます。

補足

すみません＞＜
昨日からVBAをやり始めたのでもう少し噛み砕いて教えてもらって
いいでしょうか？？