Hi all,

I have some cells that have the following data:

A1 = ABC/01/1234 Testing Stuff
A2 = ABS/09/1345 Other Stuff

I would like to remove the / and replace with a space which I have done by -

[VBA]
Sub removeText()
Selection.Replace "/", " "
End Sub
[/VBA]

This gives me:

A1 = ABC 01 1234 Testing Stuff
A2 = ABS 09 1345 Other Stuff

I now need to delete all after the final number.

I was thinking of using Len but never used it before as I am just learning. Any ideas are very welcome.

Regards

K