if you know exactly how many characters are same them you can use
left() function to arrive

hope this helps:

Sub test()

tst = Left(ActiveCell.Text, 19)


Select Case tst

Case "Personal Banking - "
ActiveCell.Interior.ColorIndex = 13 ' Purple'

End Select



End Sub