compare list - Exit Function End If Next Else comparison...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
Sheet1 Page 1 Function CompareList(Arg As Variant, ParamArray Values() As Variant) As Boolean Dim index As Long If IsObject(Arg) Then comparison between objects For index = 0 To UBound(Values) If Not IsObject(Values(index)) Then argument isn't an object, skip it ElseIf Arg Is Values(index) Then CompareList = index
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Exit Function End If Next Else comparison between non-object values For index = 0 To UBound(Values) If IsObject(Values(index)) Then argument is an object, skip it ElseIf Arg = Values(index) Then CompareList = index Exit Function End If Next End If End Function...
View Full Document

This note was uploaded on 11/06/2010 for the course UBIT 411 taught by Professor Saleemelahi during the Spring '10 term at University of Karachi.

Ask a homework question - tutors are online