I'd like to list all open - but NOT hidden - workbooks in a userform listbox.
However, I am unable to find any properties that tell if a book is hidden or
not.

You can try to activate each book and test for success, I suppose, but there
has to be a more elegant way than that. Isn't there?

Duke:

try,

Private Sub UserForm_Initialize()
Dim wbk As Workbook
For Each wbk In Workbooks
If wbk.Windows(1).Visible = True Then
Me.ListBox1.AddItem wbk.Name
End If
Next
End Sub

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"Duke Carey" wrote:

I'd like to list all open - but NOT hidden - workbooks in a userform listbox.
However, I am unable to find any properties that tell if a book is hidden or
not.

You can try to activate each book and test for success, I suppose, but there
has to be a more elegant way than that. Isn't there?

Much simpler, and very effective. Thanks

"chijanzen" wrote:

Duke:

try,

Private Sub UserForm_Initialize()
Dim wbk As Workbook
For Each wbk In Workbooks
If wbk.Windows(1).Visible = True Then
Me.ListBox1.AddItem wbk.Name
End If
Next
End Sub

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"Duke Carey" wrote:

I'd like to list all open - but NOT hidden - workbooks in a userform listbox.
However, I am unable to find any properties that tell if a book is hidden or
not.

You can try to activate each book and test for success, I suppose, but there
has to be a more elegant way than that. Isn't there?

Duke,

For Each WkBk in Workbooks
If WkBk.Windows(1).Visible Then
'- - - -
Next

Regards,
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Duke Carey"

wrote in message
...
I'd like to list all open - but NOT hidden - workbooks in a userform listbox.
However, I am unable to find any properties that tell if a book is hidden or
not.
You can try to activate each book and test for success, I suppose, but there
has to be a more elegant way than that. Isn't there?