Есть такая процедура (нашел ее в книге):  
Sub CheckForFileO  
FileName = "BUDGET.XLS"  
FileExists = False  
1 Цикл по всем рабочим книгам  
For Each book In Workbooks  
If UCase{book.Name) = FileName Then  
FileExists = True  
End If  
Next book  
1 Отображение соответствующего сообщения  
If FileExists Then _  
MsgBox FileName & " открыт." Else „  
MsgBox FileName & " не открыт."  
End Sub  
В моем случае название книги цифры ("1214.xls", "1215.xls"...). В процесе работы открыто всегда минимум 2 книги. Одна из них "База.xls", а вторая - одна из выше перечисленных "1214.xls", "1215.xls"....(причем имя присваивается из именованной ячейки этой книги).    
Просьба к профи в следующем: необходимо активировать книгу по части имени (я понимаю Это так)  
Sub CheckForFileO()  
Filename = "12*.xls"  
FileExists = False  
' Цикл по всем рабочим книгам  
For Each Book In Workbooks  
If UCase(Book.Name) = Filename Then  
FileExists = True  
End If  
Next Book  
' Отображение соответствующего сообщения  
If FileExists Then _  
ThisWorkbook.Activate Else  
MsgBox Filename & " не открыт."  
End Sub  
и ничего  не получается.    
В рабочам варианте эти книги соеденины Referense.  
Прошу прощения за допущенные ошибки. Я только начал изучать VBA самостоятельно.