VB Code:
Private Function isArrayEmpty(arr as Variant) As Boolean Dim dblCount As Double isArrayEmpty = True On Error Resume Next ' CAUSES AN ERROR IF EMPTY dblCount = Ubound(arr) If Err.Number > 0 Then Exit Function isArrayEmpty = False End Function




Reply With Quote