How to find string and replace it?

[iand5]

I already have the code for replacing a string with a different string. It works when I know what the contents of the cell are. For example, in this case "A1" contains the string "test".

Sub Button1_Click()

Dim OriginalText As String
Dim CorrectedText As String


OriginalText = Range("A1").Value
CorrectedText = Replace(OriginalText, "test", "exam")


Range("A1").Value = CorrectedText


End Sub

I am trying to figure out how to replace a string when I don't know the contents of the cell.

 

[My Aswer Is This]

I asked you this question in post 8

Have you looked into the built in function in Excel.
On the ribbon you should see Find and inside Find you have a replace section.​

 

[iand5]

I asked you this question in post 8

Have you looked into the built in function in Excel.
On the ribbon you should see Find and inside Find you have a replace section.​

Sorry, didn't notice.

I want to do it via Virtual Basic code.

 

[Logit]

.

Yes.

This line :

[/I][/COLOR] Set WS = ThisWorkbook.ActiveSheet[COLOR=#333333][I]

tells the macro to look at the sheet that is displayed.

 

[iand5]

.

Yes.

This line :

 Set WS = ThisWorkbook.ActiveSheet

tells the macro to look at the sheet that is displayed.

Awesome, thanks for the help!