Erasing Arrays after use question

[JumboCactuar]

Hi,
I have a macro that uses multiple arrays and after use I have a reset button which clears these:

erase MyArray1

etc...

However in some cases not all arrays are initiated so when I attempt to erase those I get an error as they don't exist.

Is there a way, when erasing them to check if they exist first? Or some way to catch the errors.

Thanks

 

[shg]

Function IsArrayInitialized(av As Variant) As Boolean
  Dim i      As Long

  On Error Resume Next
  If IsArray(av) Then
    i = UBound(av)
    If Err.Number Then Err.Clear Else IsArrayInitialized = True
  End If
End Function

Then

If IsArrayInitialized(MyArray1) Then Erase MyArray1

 

[JumboCactuar]

Function IsArrayInitialized(av As Variant) As Boolean
  Dim i      As Long

  On Error Resume Next
  If IsArray(av) Then
    i = UBound(av)
    If Err.Number Then Err.Clear Else IsArrayInitialized = True
  End If
End Function

Then

If IsArrayInitialized(MyArray1) Then Erase MyArray1

Perfect thankyou

 

[shg]

You're welcome.

More compactly,

Function IsArrayInitialized(av As Variant) As Boolean
  On Error Resume Next
  IsArrayInitialized = Not IsError(UBound(av))
  Err.Clear
End Function