Boa noite!!

Só precisa disso por meio de VBA?

caso contrário...=SUBSTITUIR(A3;EXT.TEXTO(A3;LOCALIZAR("-";A3);100);"")

alexandrevba,
na verdade gostaria que fosse em codigo vba msm, pois estou montando um código com outros comandos também.
O que eu queria msm q ele fizessem é que ele pegasse o texto original em A1 extraisse o texto que eu gostaria, e substiuisse a propria celula A1.
Meu conhecimento em vba é minimoooo, copiar, colar, selecionar, eu consigo montar. Por isso só pedi parte do código. Mas o q eu gostaria que ele fizesse msm é o que descrevi acima. Mas obrigado pela dica

Celso,

há inúmeras maneiras de fazer isso através de VBA...
... precisa detalhar um pouco mais sobre algumas condições...

Um exemplo simples (apenas para a célula A1):

Sub HIFEN()

t = Range("A1").Value
f = Application.WorksheetFunction.Search("-", t)
nt = Mid(t, 1, f - 1)
Range("A1") = nt

End Sub

Como o edson citou, existem várias formas de se fazer o que pretende, e alem da citada pelo mesmo, podemos utilizar a função Split, ficando assim :

Sub Substitui_TextoOriginal()
    Dim TextoOriginal
    
    For i = 1 To 10 'de A1 até A10
        TextoOriginal = Cells(i, 1).Value
        Cells(i, 1).Value = Split(TextoOriginal, " - ")
    Next
    
End Sub

[]s

Obrigado a todos que me ajudaram.
uma outra pessoa tambem me ajudou conforme a planilha abaixo
ajustei o codigo para que ela substitua a propria coluna A

Sub Replacement()
'
'
Dim Source1 As Worksheet
Dim Cell As Range
Set Source1 = Sheets("Plan1")
For Each Cell In Source1.Columns("A").Cells.SpecialCells(xlCellTypeConstants)
    Cell.Offset(0, 1).Select
    ActiveCell.Value = "=SEARCH("" "",RC[-1],1)"
    Cell.Offset(0, 2).Select
    ActiveCell.Value = "=LEFT(RC[-2],RC[-1]-1)"
Next Cell
Range("C1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("C:C").Select
Selection.Delete
Range("A1").Select
X = Worksheets("Plan1").Range("B:B").Cells.SpecialCells(xlCellTypeConstants).Count
MsgBox "Foram substituídas " & X & " células.", vbInformation, "Resultados"
End Sub

http://www.4shared.com/file/X_ZbvUBu/Su ... ement.html
Créditos: Douglas Marcel