Extracting information from file names

Hello all,

In a spreadsheet, I have data in Column A:A which look like this:

Aberdeen-Section7-Run24-Revb.xlsx
Plymouth-Section2-Run12-RevC.xlsx


(they are filenames that have previously been extracted)



Now I would like to write a vba code to store the different parts of the name in different cells, like this:

Range(B1) = Aberdeen
Range(C1) = Section7
Range(D1) = Run24
Range(E1) = Revb


What would be a good way to achieve this?

Thanks in advance

If anything is unclear, please let me know


Lovi