Deleted Arrays which are Out of Scope {RESOLVED}

[dw85745]

I need to erase an array in one procedure then do a check for
its validity in another. After erasing, the array is out of scope.

On Error Resume Next should continue past this point BUT I need an If/EndIf condition based upon whether the array exists or NOT.

Any suggestions appreciated.

Thanks
David

[Bruce Fox]

Can you use a 'Public' Boolean; bln_Array_Errased.

[MartinLiss]

Dim Myarray() As String
    
    [b]On Error Resume Next[/b]
    If UBound(Myarray) > 0 Then
        If Err.Number <> 0 Then
            Err.Clear
            MsgBox "Array doesn't exist"
        End If
    End If

[dw85745]

Thanks MartinLiss. Will give it a try and retain for future reference.

David


--------------------------------

After post changed Sub to Function and return a different value when erasing array, then checked for this value in other Sub.
Works great an No Error check required.