vba, excel

[nusya24]

как в vba узнать по имени книги открыта она или нет?

[yuriks]

	On Error Resume NextSet w = Workbooks("КнигаX")If IsNull(w) ThenElse	... 'открытаEnd If	

Или пройтись в цыкле по книгах и посмотреть какие открытые

for each w in workbooks if w.name = "КнигаX" then	... endnext