Thankyou for this Tom
Can I get this to work on multidimensional arrays?
-----Original Message-----
Sub Tester1()
varr = Array("ABCD", "ADCE", "BCDA", "1234", "ECDA")
varr1 = Filter(varr, "BC", True, vbTextCompare)
For i = LBound(varr1) To UBound(varr1)
Debug.Print varr1(i)
Next
End Sub
--
Regards,
Tom Ogilvy
David Robinson
wrote in message
...
can someone post an example of the Filter Function in
VB.
.