وعليكم السلام أخي الكريم محمد عبد السلام
في الحقيقة يمكنني أن أختصر في المساعدة وأقوم برفع الملف بعد التعديل عليه ولكني لن أفعل ذلك ؛ لأن الهدف من المنتدى تعليمي وليس خدمي. وبمشاركتي بهذا الشكل ستكون الاستفادة لك ولغيرك ولي أنا أيضاً (من حيث توثيق الخطوات والشرح)

** بما أن التعامل مع ورقة العمل المسماة Sheet1 لذا يفضل أن نقوم بإعلان متغير من النوع ورقة عمل في أول الموديول الخاص بالفورم UserForm1

Option Explicit

Dim ws As Worksheet

لاحظ أنني أضفت سطر في بداية الكود وهذا السطر يجبرك على تعريف المتغيرات إذا لم يكن تم تعريفها في الأكواد الموجودة.

** الآن وبعد أن قمنا بالإعلان عن المتغير يلزم تعيين قيمة لهذا المتغير وستكون القيمة هي ورقة العمل المسماة Sheet1 ، وأنسب مكان لتعيين قيمة المتغير ws هو حدث بدء تشغيل الفورم UserForm_Initialize
وهذا هو الكود الخاص بحدث بدء التشغيل حيث قمت بإضافات بسيطة وهي مسح محتويات الليست بوكس قبل تعبئة الليست بوكس وستعرف لاحقاً السبب في إضافة هذه الجزئية.

Private Sub UserForm_Initialize()
    Dim lr As Long, i As Long
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    With Me.ListBox1
        .Clear
        .ColumnCount = 3
        lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
        For i = 4 To lr
            .AddItem ws.Cells(i, 1).Value
            .List(ListBox1.ListCount - 1, 1) = ws.Cells(i, 2).Value
            .List(ListBox1.ListCount - 1, 2) = ws.Cells(i, 2).Row
        Next i
    End With
End Sub

يقوم الكود السابق بتعيين ورقة العمل ws وهو الورقة المسماة Sheet1 ، ثم نبدأ في التعامل مع الليست بوكس الموجود على الفورم ListBox1 ، ونقوم بمسح محتويات الليست بوكس باستخدام الأمر Clear ، ثم تحديد عدد الأعمدة في الليست بوكس وهي هنا 3 أعمدة ، ثم حلقة تكرارية لتعبئة الليست بوكس بالصفوف الموجودة في ورقة العمل من الصف الرابع وحتى آخر صف به بيانات على أن يكون الليست بوكس في العمود الأول يساوي قيمة الخلية في العمود الأول ، وأن يكون الليست بوكس في العمود الثاني هو قيمة الخلية في العمود الثاني ، وأن يكون الليست بوكس في العمود الثالث هو رقم الصف الموجود به البيانات في ورقة العمل.
(الكود السابق موجود بالفعل في ملفك لكنني أضفت بعض التغييرات البسيطة)

** بعد أن قمنا بالتعديلات في الأكواد الموجودة نأتي للكود الجديد وهو الكود الذي سيتم تنفيذه عند النقر المزدوج في الليست بوكس

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim cnt As Long
    If MsgBox("Selected Row Will Be Deleted. Are You Sure?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
    With Me.ListBox1
        For cnt = 0 To .ListCount - 1
            If .Selected(cnt) Then
                ws.Rows(Val(.List(cnt, 2))).Delete
                .RemoveItem cnt
                UserForm_Initialize
                Exit Sub
            End If
        Next cnt
    End With
End Sub

شرح الكود:
-----------
قمنا بالإعلان عن متغير باسم cnt من النوع Long حيث سنقوم باستخدامه في الحلقة التكرارية للعناصر الموجودة في الليست بوكس.
إظهار رسالة للمستخدم تؤكد أن الصف الذي تم تحديده سيتم حذفه فإذا نقر المستخدم الاختيار No يتم الخروج من الإجراء الفرعي ، أي أنه لا يتم تنفيذ بقية الأسطر الموجودة بالكود.
السطر التالي يتم بدء التعامل مع الليست بوكس ، ثم يتم عمل حلقة تكرارية للعناصر الموجودة في الليست بوكس للتأكد من أن العنصر تم تحديده أو اختياره ، فإذا كان العنصر محدداً يتم التالي (وهذا هو محور المطلوب)
يتم حذف الصف في ورقة العمل المسماة Sheet1 بناءً على قيمة العنصر في العمود الثالث في الليست بوكس (لاحظ الرقم 2 يشير إلى العمود الثالث في الليست بوكس)
السطر الذي يليه يقوم بحذف العنصر من الليست بوكس.
السطر الذي يليه يقوم باستدعاء الكود في حدث بدء تشغيل الفورم (لذا يتم مسح محتويات الليست بوكس وإعادة التعبئة من جديد لتحصل على أرقام الصفوف بشكل صحيح بعد عملية الحذف التي تمت)
وأخيراً يتم الخروج من الحلقة التكرارية حيث لا داعي للتأكد من بقية العناصر الموجودة في الليست بوكس.

وتقبل وافر تقديري واحترامي

جزاك الله خيرا اخي ياسير على تفهمك وتقديم المساعده لكن اخي ياسير لما قمت بوضع الكود في الملف وعند النقر دوبل كليك في الليست بوكس ظهر لي هذا الخطا في الصوره جزاك الله خيرا اخي ياسير

ما هي رسالة الخطأ التي تظهر معك؟
وفي النافذة الفورية اكتب الأمر

?ws.Name

للتأكد من أن ورقة العمل تم تعيينها بشكل صحيح في الكود الخاص بحدث بدء تشغيل الفورم
وهل قمت بالتعديل في الكود الخاص بحدث بدء التشغيل كما أوضحت لك؟
وما هي قيمة العنصر في العمود الثالث عند النقر المزدوج على العنصر؟
يمكنك استخدام النافذة الفورية لمعرفة القيم ..

لم اقوم بالتعديل في الكود اخي ياسر ولااعريف طريقة تعديل
هده رسالة الخطأ التي تظهر جزاك الله خيرا

لن أستطيع مساعدتك برفع ملف مرفق لأن هذا مخالف لما أحاول القيام به.

راجع الشرح بشكل جيد .. ولاحظ أنه يتم الإعلان عن متغير من النوع ورقة عمل في أول الموديول الخاص بالفورم ..
وضعت لك الأكواد كاملة وشرحتها لك بالتفصيل ، ولا أجد مبرر لعدم القدر على القيام بالتعديل في الأكواد الموجودة.
لا تنتظر أن يقوم الأعضاء بفعل كل شيء لك ..

اخي الكريم
هل حاولت حقاً؟؟؟
هل قرأت الشرح جيداً؟
هل قمت بتنفيذ الخطوات التي أخبرتك بها عندما أخبرتني أنه ظهر لديك خطأ؟
لم تجب على أي سؤال من الأسئلة التي وجهتها لك .. ما أراك إلا تريد حل المشكلة وحسب ولا أراك تريد التعلم (اعذرني لصراحتي التي قد يراها البعض وقاحة) ..

لاعليك اخي ياسر انت صريح دائما
لقدقمت بتنفيذ بعد الخطوات فقط التي شرحتها لي والباقي لااعرف الطريقة لقد قمت بعدات من المحاولات ولم انجح

المشكلة أن الكلام بهذا الشكل لا يفيد في حل المشكلة
أظهر لنا آخر محاولة لديك وارفق شكل لصورة رسالة الخطأ وضع لنا صورة لكل التعديلات التي قمت بها لمراجعتها .. الكود مجرب عندي ويعمل بدون أدنى مشكلة.

ارني صورة الكود الموضوع لديك في حدث بدء تشغيل الفورم والكود الخاص بالليست بوكس .. وأرني السطر الذي أشرت إليك أن تضعه في أول الموديول.
قمت بحذف الصورة التي أرفقتها لأنها نفس الصورة التي أرفقتها سابقاً .. راجع المشاركة مرة أخرى.

اخي حاولت ان افهم الموضوع بشكل اوضح ولكن هذا مافهمت

ارني صورة الكود الموضوع لديك في حدث بدء تشغيل الفورم UserForm_Initiliaze وأرني بداية الموديول الخاص بالفورم
الرجاء الاستجابة للمشاركات بشكل صحيح لكي نساعدك بشكل صحيح ..