sholsinger

' returns the index of obj in array. obj can be anything. Returns -1 if not found.
Function inArray(arr, obj)
  On Error Resume Next
  Dim x: x = -1
	
  If isArray(arr) Then
    For i = 0 To UBound(arr)
      If arr(i) = obj Then
        x = i
        Exit For