Find method

[Andrea]

Hello

Why this simple script:
_______

Function prova()
Dim c As Range
Set c = Worksheets("riepilogo").Range("A1:A20").Find("parola")
If Not c Is Nothing Then
prova = "pluto"
End If
End Function
_______

run in Excel 2002 (VB 6.3) and not in Excel 2000 (VB 6.0) ???

Please help me (answers also in Italian)

Thank you

Andrea

 

[Frank Kabel]

Hi andrea
what error did you get. You may try the following
Function prova()
Dim c As Range
on error resume next
Set c = Worksheets("riepilogo").Range("A1:A20").Find("parola")
on error goto 0
If Not c Is Nothing Then
prova = "pluto"
End If
End Function

 

[Andrea]

Hi Frank

I resolve the problem ;-)
The script run without error, but the method "find" in Excel 2000 and
earlier don't work in a user defined function (only macro).
You have to use the instruction "match ()".

Thank you anyway

Andrea