lbound errors

[bhas]

when i try to run this script i get an error like 'type mismatch' for lbound.
any one knows why?

Function Check_Val(ByRef arrArray)
Dim row , j
For row = LBound(arrArray) To UBound(arrArray) - 1
For j = row + 1 To UBound(arrArray)
If arrArrray(j) <> arrArray(row) Then
Check_Val = arrArray(row)
Exit Function
End If
Next
Next
Check_Val = ""
End Function

 

[ralphtrent]

you need to dim arrArray(<some number>) first. See if that works.