Excel VBAでシート間でErr.Descriptionを受け渡したい。

Question

前提・実現したいこと

Excel　VBAでシート間でErr.Descriptionを受け渡したい。

発生している問題・エラーメッセージ

Err.Number は正常に動作するが、Err.Descriptionが以下のようなメッセージとなってしまう。
"アプリケーション定義またはオブジェクト定義のエラーです。"

該当のソースコード

【MainSheet】
Private Sub doProcessBtn_Click()
On Error GoTo EXCEPTION
SubSheet.testFunc
Exception:
If Err.Number <> 0 Then
MsgBox Err.Description
End If

【SubSheet】
Function testFunc()
Err.Raise Number:=5001,Description:="testError"
End function

Answer 1

ネットで検索した内容ですが

シートモジュールに作成した関数での、"Err.Raise"の使用について

Friend Function testFunc()
Err.Raise Number:=5001,Description:="testError"
End function

Friendで上手く行くみたいです。
あとOn Error Resume Nextでも
その後Exit Functionすればその後の処理に行かないので問題ないと思います。
と思ったけど、駄目でした！すみません。
Exit Functionの後も呼び出し側の所までOn Error Resume Next引き継がれるのですね

Friendつけないと上手く行かないのは、リンク先では不具合？とか書いてました。
まぁ。結局なぜだかはわかりませんが。

Comments

[heysaku]

ありがとうございます。
Private と　Publicしか意識していなかったのでFriendを使うという発想はありませんでした。
Friendに変更してみたところ、意図した動作になりました。
そうなると、別ブックのFunction呼び出しではErr.Raiseは使えなさそうですね。

Answer 2

Function testFunc()
    On Error Resume Next
    Err.Raise Number:=5001, Description:="testError"
End Function

Comments

[heysaku]

回答ありがとうございます。
確かにこのサンプルですと、回答していただいた方法でできるのですが
本来は、複数階層にわたって関数呼び出しをしており、Err.Raise以降の処理は行わせたくありません。
他の言語のtry-catchのように使いたいと試していたのですが、呼び出し元でErrオブジェクトの中身をみてみると、Err.Numberは残っているのですが、Err.Descriptionがクリアされていました。
on Error Resume NextだとErr.Descriptionの内容が保持されて、そうでない場合はクリアされるのはなぜでしょうか？