اظهار أوراق العمل

[2saad]

اخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

عندي ملف فيه مجموعة من أوراق العمل وعملهم اخفاء من الفيجوال بيسك ماعدا ورقة واحدة

وعامل في كل ورقة زر يفتح يوزر فورم به ليست بوكس يضم كل اوراق العمل

عايز لما اضغط علي اي ورقة عمل تفتح 

وهذا هو كود الموجود باليوزر فور ( ماذ اضيف له لكي تفت الورقة المختارة )

Private Sub Label4_Click()

End Sub
Option Explicit

Private Sub ListBox1_Click()
With Me.ListBox1
    If .ListIndex <> -1 Then
    ThisWorkbook.Sheets(.List(.ListIndex)).Activate
    End If
    End With
    
End Sub

Private Sub UserForm_Initialize()
Dim y As Integer
Do
y = y + 1
ListBox1.AddItem Sheets(y).Name
Loop Until y = Worksheets.Count

End Sub