I see that you and Bob found an answer--but just because a workbook only has one
sheet, doesn't mean that it only has one window.

Window|new window
is sometimes a nice thing to do on a single sheet.

Then you can see two different portions of the same sheet at the same time.

Michael wrote:

Thank's Dave.

It is just 1 sheet in the workbook, but it is nice to know this.
--
Nil Satis Nisi Optimum

"Dave Peterson" wrote:

If you have multiple windows into that workbook, so you see:

statistikk.xls:1
and
statistikk.xls:2
and
statistikk.xls:3
etc

you could have trouble (the window caption has to match exactly).

One way around it:

Option Explicit
Private Sub Workbook_Open() 'This is part of the macro in workbook VT

Dim myWindow As Window
Dim FileOpen As String
Dim FileOpenend As String
Dim wkbk As Workbook

FileOpen = ActiveWorkbook.path
FileOpenend = FileOpen & "\Arkiv\" & "Statistikk.xls"

Set wkbk = Workbooks.Open(FileOpenend)

For Each myWindow In wkbk.Windows
myWindow.Visible = False
Next myWindow

End Sub

Ps. If you want to close any of those windows that end with :1, :2, etc, you
can select that window and then hit ctrl-w (and remember to save the workbook
the way you like it).



Michael wrote:

Hi Bob.

This is the code:

Private Sub Workbook_Open() 'This is part of the macro in workbook VT

Fileopen = ActiveWorkbook.Path
Fileopenend = Fileopen & "\Arkiv\" & "Statistikk.xls"

Workbooks.Open Fileopenend

**Now the workbook Statistikk is open, but it will not take this

Windows("Statistikk.xls").Visible = False

End Sub

--
Nil Satis Nisi Optimum

"Bob Phillips" wrote:

Michael,

That seems to suggest then that you do not have a workbook called
"Statistikk.xls" open in Excel. Is it spelt correctly?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Michael" wrote in message
...
Hi again Bob.

I forgot to tell you that i tried this one to.

Windows("Statistikk.xls").Visible = False

The message i get is "Run time error 9" "subscript out of range"
--
Nil Satis Nisi Optimum


"Bob Phillips" wrote:

Almost Michael, when I say workbook name I mean with the extension

Windows("Statistikk.xls").Visible = False


--

HTH

RP
(remove nothere from the email address if mailing direct)




--

Dave Peterson


--

Dave Peterson