sub または function が定義されていません

自分用メモ（最近、思い出すレスポンスが悪い）

県内５箇所の管理住宅をOracle12c（11g超ってこと）でやってるが
各管轄別に世帯情報や家賃をExcelにVBAで落とし込み、
帳票の形で管理している。
で、更新は各々でやってたが面倒なので（５箇所分）一発更新を考えた。

各管轄別を　A、B、C、D、E.xlsm（マクロ込み）とする。
データ更新用として別に X.xlsmを用意し、モジュールに以下の記載をした。

Sub ボタン1_Click()
     Dim myPath As String
'
     Worksheets("更新").Activate
     myPath = ThisWorkbook.Path
'
     Range("F3").Value = Range("F2").Value
     Range("G3").Value = Range("G2").Value
     Range("F2").Value = Format(Date, "Geemmdd")
     Range("G2").Value = Format(Time, "hh:mm:ss")
'
    Workbooks.Open myPath & "家賃_A.xlsm"

    Call Exist_00
    ActiveWorkbook.Save
'
    Workbooks.Open myPath & "世帯_A.xlsm"
   Call Exist_00
   ActiveWorkbook.Save
'
End Sub

"Exist_00"はちゃんと存在してるのに
「Sub または Function が定義されていません」となる。

これの解決方法は２通りあるが手っ取り早いのは　

　Call Exist_00 　→　Application.Run "家賃_A.xlsm!Exist_00"
　Call Exist_00 　→　Application.Run "世帯_A.xlsm!Exist_00"

これで動く。
（上記の変更をしてもブックは開きっぱなしなので閉じる必要がある）