VBAの質問です。一度セルに入力したデータをDleteで消すと、ダイアログボックスが表示されてしまいます。キャンセルボタンを押しても×ボタンを押しても消えません。ダイアログボックス表示は不必要です。Private Sub Worksheet_Open() Sheets("販売管理表").EnableSelection = xlUnlockedCells Sheets("顧客リスト").EnableSelection = xlUnlockedCells Sheets("顧客リスト(2)").EnableSelection = xlUnlockedCellsEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)'顧客情報を追加するOn Error Resume Next 'エラーをスキップ If Target = "(顧客の追加...)" Then Target.ClearContents AddCustomer.Show End If '顧客情報を追加する If Target = "(顧客2の追加...)" Then Target.ClearContents AddCustomer.Show End IfOn Error GoTo 0 'エラースキップを終了 End Subという文を書きました。どなたかアドバイスをいただければ有りがたいです。m(_ _)m