Splitting text in a cell

[aa2000]

Hi all

As part of this ongoing macro project, I have to find the files of a similar name from the columns of file names that are present. The problem is that the files do not have the same names in each column. The first part (the project name) is the same then there is a - and some number.txt

Is it possible to get the macro to only consider whatever is before the -.

So if the entry in the cell is

ABCD-01.txt

Can the macro only look at "ABCD" to compare it with the other columns?

Thanks

 

[VoG]

Try like this

Sub test()
Dim s As String
s = Range("A1").Value
s = Left(s, InStr(s, "-") - 1)
MsgBox s
End Sub

 

[Yahya]

another code

Sub test()
Dim SplitIT
SplitIT = Split(Range("a1"), "-")
MsgBox SplitIT(0)
End Sub

 

[aa2000]

Thank you both!
They worked perfectly, now back to work