リストボックスと同じセルデーターを削除する

3時間ほど奮闘していますが、思うようにできません。 よろしくお願いします。（Ｏｆｆｉｃｅ2010　Windows7） ユーザーフォームのリストボックス（摘要リスト）で、選んだ項目と 同じ項目があるセルを、Ｎ3からラスト行の中から探し出して、削除する。 また、その1つ左側（Ｍ列）と、2つ左側（Ｌ列）のセルデーター及び リストボックス（摘要リスト）で、選んだ項目も削除する。 Dim i As Long With ActiveWorkbook.Sheets("勘定科目") 摘要リスト.Clear For i = 3 To Range("N65536").End(xlUp).Row If .Range("N" & i).Value = 摘要リスト.Value Then 摘要リスト.List(.ListIndex, 0) = "" ActiveCell.Offset(0, 0).Value = "" ActiveCell.Offset(0, -1).Value = "" ActiveCell.Offset(0, -2).Value = "" End If Next End With と、したのですが、うまく作動しません。