I am using this code to Display a message of all open workbooks.
Sub LIST_OPEN_WORKBOOK_MESSAGE()
Dim a, i&, fn$, prefix$
ReDim a(1 To Workbooks.Count)
prefix = "report to excel."
For i = 1 To Workbooks.Count
a(i) = Workbooks(i).Name
If Left(a(i), Len(prefix)) = prefix Then fn = a(i)
Next i
MsgBox Join(a, vbLf)
If fn <> "" Then MsgBox fn
End Sub
How do I modify the code to Display a list of just the open HIDDEN workbooks?
Sub LIST_OPEN_WORKBOOK_MESSAGE()
Dim a, i&, fn$, prefix$
ReDim a(1 To Workbooks.Count)
prefix = "report to excel."
For i = 1 To Workbooks.Count
a(i) = Workbooks(i).Name
If Left(a(i), Len(prefix)) = prefix Then fn = a(i)
Next i
MsgBox Join(a, vbLf)
If fn <> "" Then MsgBox fn
End Sub
How do I modify the code to Display a list of just the open HIDDEN workbooks?