返答をありがとうございます。 "onChange"を使ったところ、 Dim ws As New NotesUIWorkspace で赤字エラーになり保存できませんでした。 ヘルプの例などを参照して調べようと思いますが 引き続き、分かりましたらご返答下さい。