Solved: Code Not Cycling Workbook

[jo15765]

I am trying to run this:

Dim ws As Worksheet
For Each Worksheet in ActiveWorkbook.Worksheets
Cells.Replace What:="Hello", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next Worksheet

And it is only searching the 1st worksheet?

EDIT - I am also trying to run this in Excel 2007

[Aflatoon]

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Cells.Replace What:="Hello", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next ws

[jo15765]

That code is not cycling the worksheets either....

[jolivanes]

This works for me

Sub Replace_Hallo()
Dim ws As Worksheet
For Each WS In Worksheets
WS.Cells.Replace What:="Hello", Replacement:="Hallo", _
LookAt:=xlPart, MatchCase:=False
Next
End Sub

BTW, Aflatoon's works for me

[jo15765]

Still not working....

[jolivanes]

Did you read the code?
It will replace "Hello" with "Hello"

Sub Replace_Hallo()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Cells.Replace What:="Hello", Replacement:="Hello", _
LookAt:=xlWhole, MatchCase:=False
Next
End Sub

Change the

Replacement:="Hello"

to


Replacement:=""

[jo15765]

That got it...Thanks!