Intermittent error 2029

[AnneW]

Hello!

I have an error that pops up intermittently with seemingly no cause. The code that triggers it is here (the last line is the actual trigger):

Public Sub TestA1()

On Error GoTo Err_TestA1

    'only one fatal error is possible
    Debug.Print [A1_Period]
    If [A1_Period] <> 1 Then

The Debug.Print gives me "Error 2029" for the value of [A1_Period]. When the code is running, the error message that pops up is number 13 Type mismatch. The confusing thing is, [A1_Period] refers to a cell that has not changed in value, but sometimes this error happens and sometimes it does not. The cell contains a formula: =COUNTIF(E15:E17,TRUE). The calculation is working just fine. Anyone know why this error happens sometimes but not others? Thanks!

Edited to add: By the way, if I execute the code again after it bombs, without making any changes, it works fine. ????

 

[RoryA]

Does it help if you use:

If Application.Range("A1_Period").Value <> 1 Then

instead of the evaluation?

 

[steve the fish]

It could fail intermittantly if you are on the wrong workbook.

 

[AnneW]

I did have another workbook open while I was working on this one, so thanks, I will try keeping to just one open at a time.

 

[AnneW]

Thank you, if the advice below doesn't work out I will try this version of the code.

 

[AnneW]

Thanks again for that help, I think this was the answer. The error has only happened while I had another workbook open. I appreciate the help!