Sub NameYes()  
x = "Yes"  
ActiveWorkbook.Names.Add Name:="store", RefersTo:=x  
End Sub  
 
Sub NameCheck()  
If ActiveWorkbook.Names("store").Value = "Yes" Then MsgBox "Yes!": Else MsgBox "No"  
End Sub  
 
В данном коде ActiveWorkbook.Names("store").Value равно <Out of context>, т.е. это не работает. Подскажите, как будет правильно?