Instead of hiding workbooks, your workbook_open event can just hide the sheets
you want hidden:

Option Explicit
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim wksNameToShow As String

wksNameToShow = "showit"

Me.Worksheets(wksNameToShow).Visible = xlSheetVisible
For Each wks In Me.Worksheets
If LCase(wks.Name) = LCase(wksNameToShow) Then
'skip it
Else
wks.Visible = xlSheetHidden
End If
Next wks
End Sub


" wrote:

Thanks Dave,
I had had a startup macro in one of the workbooks that kept hiding all
the other workbooks, All I had wanted was for the workbook to show, and
nothing else such as the toolbars and the menus, and the worksheet
tabs...thats where the problem is from(Ibelieve) is from trying to hide
the worksheet tabs, the macro calls it workbook tabs,

I deleted the workbookopen event now things seem to be working fine

It would be neat to have just the sheet showing in this one particular
workbook
But I would still like too have the other workbooks show at the bottom
of the screen

anyway, I believe this is where my problem originated

--

Dave Peterson