As I said in a previous post, I tested your code with 2/164 and it left me
with 2. But, then I showed you how to use vba replace. If you need to use
FIND, look in the vba help index for FINDNEXT. I guess this is homework so
you need to help yourself. You should NOT be using worksheet functions when
there are vba solutions.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"peyman" wrote in message
...
hi ,
can anybody explain how I can use the loop below for "find" property in
the
following code.I don't know why it can not jump to next I when "find"
property can not find the "/164" in the cells!!!????I know there are far
easier codes to do the substitution but I have to use the "find".thanx

Private Sub CommandButton4_Click()
Dim VAR As Variant
For I = 13 To 32
VAR = Application.WorksheetFunction.Find("/164", Cells(I, 2))
If VAR = 1 Then
Cells(I, 2) = Application.WorksheetFunction.Substitute(Cells(I, 2),
"/164",
"")
Else
End If
Next
End Sub