汐月と申します、いつも参考にさせていただいています。 いろいろ調べていますが解決できず、、こちらに投稿させていただきました。よろしくお願いいたします。 私がやりたいのは、Inputbox、PickListStrings のキャンセルが押下されたときの、エラー回避です。 キャンセルが押下されたときに、 Inputboxの戻り値：""（空白） PickListStringsの戻り値：empty とヘルプに記載されていたため、下記のように記述しErr_Labelに 飛ぶようにしました。 が、●へたどり着く？前に2箇所とも「I010 PROPERTY の使い方が不正です」とのエラーでてしまいます。 ヘルプをみたところ、 「プロパティがクラスのメンバとして定義され、そのプロパティが不正な方法で参照されています。」とありますが、この意味が良く理解できず・・・。 どのように直せば良いのか分かりません。 アドバイスでも構いません。ご教授いただけないでしょうか。 ===== Dim picklist As Variant Dim strGetRol As String Dim strnum As String Dim num As Integer Dim i As Integer strnum = Inputbox$("分冊最終番号を入力してください" & Chr(13) & _ "例）入力値が分冊番号に該当します","分冊文書を作成します。") 'キャンセルを押下された時に発生するエラー回避 ←● If strnum = "" Then Goto Err_Label Else num% = Cint(strnum) End If 'ロールの選択（メイン(副番：00)＋分冊一括入力） picklist = ws.PickListStrings( _ PICKLIST_CUSTOM, _ False, _ DB.Server, _ DB.FilePath, _ "WkRole3", _ "ロールの選択1", _ "ロールの選択", _ "1") If Isempty(picklist) Then Goto Err_Label ←●