Help to Get the 4 Digits From Right in Columns See sample details below

[JenniferLorca]

Now I want to get the 4 Digits highlighted below. Not Including special character like dots etc.

C:\Users\sponrmt\Desktop\C05\C05\DVD COPIES\LAC\BRA\167405\167405-2545- JENNIFER YASMIN SILVA M LUZ.JPG

C:\Users\sponrmt\Desktop\C05\C05\DVD COPIES\LAC\BRA\167406\167406A2.764

C:\Users\sponrmt\Desktop\C05\C05\DVD COPIES\LAC\BRA\171416\photo with 1kb\171416T1.425

C:\Users\sponrmt\Desktop\C05\C05\DVD COPIES\LAC\BRA\181278\6156 (2).jpg

C:\Users\sponrmt\Desktop\C05\C05\DVD COPIES\LAC\BRA\181278\6156.jpg

C:\Users\sponrmt\Desktop\C05\C05\DVD COPIES\LAC\BRA\181278\6174 (2).jpg

C:\Users\sponrmt\Desktop\C05\C05\DVD COPIES\LAC\BRA\181278\6157.jpg

C:\Users\sponrmt\Desktop\C05\C05\DVD COPIES\MEE\JWG\174680\6504 AbdElrahman Mohammed Abu Sneyma-1.JPG

C:\Users\sponrmt\Desktop\C05\C05\DVD COPIES\MEE\JWG\174680\6512 Marwa Abu Jarad-1.JPG

C:\Users\sponrmt\Desktop\C05\C05\for uploading\TAI-182955-ZAR\182955-3191_20130606_135330_APR.Zip

<tbody>
</tbody>

 

[Rick Rothstein]

Give this UDF (user defined function) a try...

Function FourDigits(ByVal S As String) As String
  Dim X As Long
  S = "-" & Replace(S, ".", "") & "-"
  For X = Len(S) - 5 To 1 Step -1
    If Mid(S, X, 6) Like "[!0-9]####[!0-9]" Then
      FourDigits = Mid(S, X + 1, 4)
      Exit Function
    End If
  Next
End Function

HOW TO INSTALL UDFs
------------------------------------
If you are new to UDFs, they are easy to install and use. To install it, simply press ALT+F11 to go into the VB editor and, once there, click Insert/Module on its menu bar, then copy/paste the above code into the code window that just opened up. That's it.... you are done. You can now use FourDigits just like it was a built-in Excel function. For example,

=FourDigits(A1)

 

[JenniferLorca]

Hi Rick,

Thank You so much! You are great help and It really save my day! This is the perfect code for me!