皆様、色々レスのほう、サンクスでつ。

If Right(App.Path, 1) = "\" Then
　Debug.Print Time

ソースはこんな感じです。
"コンパイルエラー　プロジェクトorライブラリがみつかりません。"
とメッセージボックスが表示されます。

しかし、痛いなあ・・・。ソースがもったいないし。