وذلك بسببك لأنك لاغى ذلك بالكود وذلك بالأسطر الموجودة باللون الأخضر فعليك بحذف الفاصلة العليا على يسار كلمة Me من جميع الأسطر ليصبح الكود كالتالى :
Me.ListBox1.AddItem Me.TextBox4.Value
Me.ListBox1.List(al, 1) = Me.TextBox5.Value
Me.ListBox1.List(al, 2) = Me.TextBox6.Value
Me.ListBox1.List(al, 3) = Me.TextBox7.Value
Me.ListBox1.List(al, 4) = Me.TextBox8.Value
Me.ListBox1.List(al, 5) = Me.TextBox9.Value
Me.ListBox1.List(al, 6) = Me.TextBox10.Value
Me.ListBox1.List(al, 7) = Me.TextBox11.Value
Me.ListBox1.List(al, 8) = Me.TextBox12.Value
Me.ListBox1.List(al, 9) = Me.TextBox13.Value
1dwork.xlsm