『データ型の不一致』（miminkyo）

 今まで使用していた下記のマクロが急に使えなくなりました・・・
 手を加えたのは、セルの値を　手入力 → 他bookからの参照　にしただけなのですが・・
 「実行時エラー13　型が一致しません」とエラーがでます。
 sub test()
 Dim ik As Integer
 Dim igyo As Integer 
 igyo = 31

 For ik = 1 To 10
    If Sheets("入力").Cells(igyo, ik + 2).Value < 5000000 Then　←ここでエラー
        Sheets("出力").Shapes("丸丁" & ik).Visible = True
    Else
        Sheets("出力").Shapes("丸丁" & ik).Visible = False
    End If
   .
   . 
   .
 Next ik
 end sub
 
 参照しているセルには
 =VLOOKUP(D$4,INDIRECT("'[一覧表.xls]"&D$3&"'!"&"$A$5:$CA$111"),$B$31,FALSE)
 このような式が入っています。
 今までは普通に使えていたのですが・・・どうしてでしょうか？

----
 すみません、解決しました！
 参照セルにエラー値#N/Aが入っているのを空白になるようにしたら
 以前のように動くようになりました・・・
 (miminkyo)