Inputbox、PickListStrings の処理の部分で、エラーが出ています。 キャンセルを押したときの処理 'キャンセルを押下された時に発生するエラー回避 If strnum = "" Then Goto Err_Label Else num% = Cint(strnum) End If または、 If Isempty(picklist) Then Goto Err_Label をコメントアウトして、処理を流し必要項目を入力して 「OK」ボタンを押すと、希望した処理が行われている状態です。 今は、戻り値のデータ型などを、気にしてデバッグをかけてます。。 まずは、方向修正ありがとうございます・・。 (違う方向へ突っ走りそうな自分がちょっと怖かったりします。。。)