工作簿未显示所有打开的工作簿

Question

当我使用以下代码显示所有打开的工作簿时，其仅显示一个名称（当前工作簿的名称）。有人知道为什么会这样吗？

sub showOpenwbs
for each OpenWB in workbooks
msgbox OpenWB.name
next OpenWB
end sub