How do i check to find out if any other workbooks are open?

I need to do this check in a macro therefore require the VBA code.

I have a workbook with a macro in, when a user runs this macro i need it to
check to see if any other workbooks are open. This macro will not run
correctly if others are open.

I am using Office 2000 - SP3

function bookcount()
bookcount=workbooks.count
end function

For your macro to work, you need bookcount to be 1
--
Adrian D.Bailey, Information and Systems Manager, Dept.Human Sciences
Loughborough University, Loughborough Leics, LE11 3TU, UK.
(E-Mail Removed) Tel: 01509 223007 Fax: 01509 223940

Community Warden, Storer and Burleigh Areas. Out-of-hours Tel: 01509 563263
--

"Stephen C" <(E-Mail Removed)> wrote in message
news:2821DF4B-D201-4413-9074-(E-Mail Removed)...
> How do i check to find out if any other workbooks are open?
>
> I need to do this check in a macro therefore require the VBA code.
>
> I have a workbook with a macro in, when a user runs this macro i need it
> to
> check to see if any other workbooks are open. This macro will not run
> correctly if others are open.
>
> I am using Office 2000 - SP3
>
>

You will need to trap for the Personal.xls workbook which will always be
open if the user has one.

Sub CountWBOpen()
Dim wb As Workbook
Dim x As Integer

x = Workbooks.Count
For Each wb In Workbooks
If wb.name = "Personal.xls" Then
x = x - 1
End If
Next
If x > 1 Then
MsgBox ("more than 1")
Exit Sub
Else
MsgBox ("only 1")
End If
End Sub

Mike F
"Stephen C" <(E-Mail Removed)> wrote in message
news:2821DF4B-D201-4413-9074-(E-Mail Removed)...
> How do i check to find out if any other workbooks are open?
>
> I need to do this check in a macro therefore require the VBA code.
>
> I have a workbook with a macro in, when a user runs this macro i need it
> to
> check to see if any other workbooks are open. This macro will not run
> correctly if others are open.
>
> I am using Office 2000 - SP3
>
>

Thanks, Just what i was after, A simple short piece of code.

"Adrian D. Bailey" wrote:

> function bookcount()
> bookcount=workbooks.count
> end function
>
> For your macro to work, you need bookcount to be 1
> --
> Adrian D.Bailey, Information and Systems Manager, Dept.Human Sciences
> Loughborough University, Loughborough Leics, LE11 3TU, UK.
> (E-Mail Removed) Tel: 01509 223007 Fax: 01509 223940
>
> Community Warden, Storer and Burleigh Areas. Out-of-hours Tel: 01509 563263
> --
>
> "Stephen C" <(E-Mail Removed)> wrote in message
> news:2821DF4B-D201-4413-9074-(E-Mail Removed)...
> > How do i check to find out if any other workbooks are open?
> >
> > I need to do this check in a macro therefore require the VBA code.
> >
> > I have a workbook with a macro in, when a user runs this macro i need it
> > to
> > check to see if any other workbooks are open. This macro will not run
> > correctly if others are open.
> >
> > I am using Office 2000 - SP3
> >
> >
>
>
>