ممكن اعرف الخظأ فى الكود اى؟

[الصفتى]

ممكن اعرف الخظأ فى الكود اى؟

Private Sub CommandButton2_Click()
Dim i As Long
Me.ListBox1.CLEAR
'لعمل رأس الاعمدة
Me.ListBox1.AddItem
For a = 1 To 6
Me.ListBox.List(0, a - 1) = Sheet3.Cells(1, a)
Next a
Me.ListBox1.Selected(0) = True
End Sub

 

[أ / محمد صالح]

جرب هذا التعديل

Private Sub CommandButton2_Click()
Dim i As Long
Me.ListBox1.CLEAR
'لعمل رأس الاعمدة
For a = 1 To 6
Me.ListBox1.AddItem Sheet3.Cells(1, a)
Next a
Me.ListBox1.Selected(0) = True
End Sub