"This array is fixed or temporarily locked" error in VBA

[General Ledger]

Dear All,

What is the solution for the error-

Run-time error '10':
 
This array is fixed or temporarily locked

I have code that checks if necessary data is on the active worksheet. If not, a message is displayed that gives the user the option to exit the macro or move to the next sheet in the file:

    For Each Word In Array("CUSTOMER:", "PO No:", "B/L:")
        Set aRange = Range("a1:iv100").Find(What:=Word, _
              LookAt:=xlWhole, MatchCase:=False)
        If aRange Is Nothing Then
            msg = "All required fields are not present" & vbCrLf & vbCrLf
            msg = msg & "on the sheet: " & ActiveSheet.NAME & vbCrLf & vbCrLf
            msg = msg & Word & " is missing." & vbCrLf & vbCrLf
            msg = msg & "Continue macro on next sheet?"
            If MsgBox(msg, 4, "  Attention:") = vbYes Then
                GoTo DONE:
            Else
                GoTo DONE2:
            End If
        End If
    Next Word

I get the error after the test fails and the user selects to continue the macro after moving to the next sheet.

It seems when this code is run on the next sheet, the Array is still "locked" from the prior loop.

Is there a way to reset the Array so it is not locked?

Best regards,

GL

 

[Firefly2012]

What line does it actually bug out on? Have you provided this line? Can you include the code for the labels Done1 and Done2?

 

[General Ledger]

What line does it actually bug out on?

The macro crashes at the line
For Each Word In Array("CUSTOMER:", "PO No:", "B/L:")

Can you include the code for the labels Done1 and Done2?

DONE exits to another part of the macro.
DONE2 exits to the end of the macro.

 

[Firefly2012]

And how have you dimensioned variable word?

 

[General Ledger]

Yes I have like this:

    Dim Word As Variant

 

[Firefly2012]

That code doesn't error for me. Have you tried shutting down Excel (maybe rebooting too) and seeing if it still errors?