Sn.sledgeab tekrar teşekkürler. İstediğim gibi olmuş.

Private Sub Cezaacilan_DblClick(Cancel As Integer)

olan bölümde dün akşam kodu kopyala yapıştır yaptıktan sonra Cezaacilan_DblClick yerine Liste186_DblClick yazmayı unutmuşum bu arada uygulamada onu da bulmuş oldum.
Kod bloğu

Private Sub Liste186_DblClick(Cancel As Integer)

ile başlayacaktı. İlgilenen arkadaşların da bilgisi olsun istedim.
Zaten soruya bakıldığında Listekutusuna çifttıkladığımızda olay yordamı değişsin istiyordum oradan da hata ortaya çıkıyor.