Replace is n/a in Excel 07, along with various other string manipulation
functions. To cater for all versions do it like this

Dim sOld As String, sNew
'code

sOld = cell.Value
#If VBA6 Then ' Excel 2000 or later
sNew = Replace(Replace(Replace(sOld, "~", "~~"), "*", "~*"), "?", "~?")
#Else ' Excel 97
With Application.WorksheetFunction
sRep = .Substitute(.Substitute(.Substitute(sOld, _
"~", "~~"), "*", "~*"), "?", "~?")
End With
#End If
My_Range.AutoFilter Field:=FieldNum, Criteria1:="=" & sNew


Regards,
Peter T

"Monk" wrote in message
...
I get an error on the Replace part of the following code for people who are
still using Excel 97. I have tried using substitute instead but this also
does not seem to work. Any suggestions would be appreciated.

My_Range.AutoFilter Field:=FieldNum, Criteria1:="=" & _

Replace(Replace(Replace(cell.Value, "~", "~~"), "*", "~*"), "?", "~?")