Replacing specific text in cell

[SSB]

Hello,
I created the macro below, but I need the -T to replace the -L. As of right now, it does not replace, it only adds on the -T after the -L. Any Ideas on how to do this?

Sub option1()
Call Sheet3.MakeTextFile
Call Sheet4.MakeTextFile
Call Sheet5.MakeTextFile

[A9].Value = [A9].Value & "-L"
[E9].Value = [E9].Value & "-L"

Call Sheet3.MakeTextFile
Call Sheet4.MakeTextFile
Call Sheet5.MakeTextFile

[A9].Value = [A9].Value & "-T"
[E9].Value = [E9].Value & "-T"

Call Sheet3.MakeTextFile
Call Sheet4.MakeTextFile
Call Sheet5.MakeTextFile
End Sub

[JieJenn]

Have you try the replace function? Rows(1).Replace("-L","-T")

[SSB]

I just tried that, but I could not get it to work.

[SSB]

I tried to do this:

Sub option1()
Call Sheet3.MakeTextFile
Call Sheet4.MakeTextFile
Call Sheet5.MakeTextFile

[A9].Value = [A9].Value & "-L"
[E9].Value = [E9].Value & "-L"

Call Sheet3.MakeTextFile
Call Sheet4.MakeTextFile
Call Sheet5.MakeTextFile

[A9].Value = [A9].Replace("-L", "-T")
[E9].Value = [E9].Replace("-L", "-T")

Call Sheet3.MakeTextFile
Call Sheet4.MakeTextFile
Call Sheet5.MakeTextFile
End Sub

[JieJenn]

Can you post a sample file.