以下のように変更されてみてはいかがでしょう。 変更前 If pdoc.Categories(0) >< NoKey Then 変更後 If pdoc.Categories(0) >< NoKey(0) Then がんばってください。