المطلوب ازالة الارقام التى تسبق الاسم بالكود او اى شىء من الجدول

للفائدة

هذه الدالة تعطيك نفس النتيجة بطريقة أخرى

Public Function NSplit(Str As String) As String
Dim gg() As String, i As Integer
gg = Split(Str, " ")

If UBound(gg) = 0 Then
  NSplit = ""
  Exit Function
End If

For i = 1 To UBound(gg)
  NSplit = NSplit & " " & Trim(gg(i))
Next

NSplit = Trim(NSplit)
End Function

اختى الكريمة د زهرة     اخى الفاضل ابو يوسف 

شكر الله لكم معاونتكم وزادكم الله بركة فى الوقت والعلم واعطاكم فوق ما تطلبون

 المحروسة