If I understand you, you want to goto a selected sheet. If you
right click on the sheet tabview codecopy/paste thisSave workbooktype in
the name of the sheet somewhere. Double click on that cell to goto the sheet
desired.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim mysheet As String
mysheet = Trim(ActiveCell.Value)
On Error GoTo no
Sheets(mysheet).Select
Exit Sub
no: MsgBox "No Sheet"
End Sub
===
To print workbook
activeworkbook.printout
To save
This workbook.save
=
Here is a sub I use to save all open workbooks and leave excel
Sub CLOSE_ALL()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In Workbooks
w.Save
Next
Application.Quit
End Sub

--
Don Guillett
SalesAid Software

"macr" wrote in message
...
Rado answered my question. I want to make an index page,
so I can access 8 other pages and that was one. Now I
need to find out how to print the work book, save the
workbook and exit the workbook and I will be cruising.
Thanx for your interest and attempt to help. It is
appreciated.
Does anyone know of a page that would help me with the
above code, so I don't drive you guys insane?
-----Original Message-----
Hi Macr, :-)

I do not laugh! Everybody didn't know when they were a
novice.

May I ask do you want to SELECT a Worksheet? or want to
Open a WorkBook?

Assume the Worksheet name is Worksheet.Glider, the code
would be like this.

'--------------------------------------------------------
---
Private Sub CommandButton1_Click()
'Select a Worksheet
Worksheets("Worksheet.Glider").Select
End Sub
'--------------------------------------------------------
---

Assume the Workbook name is Worksheet.Glider.xls.
Use correct full path instead
of "C:\Worksheet.Glider.xls"
'--------------------------------------------------------
---
Private Sub CommandButton1_Click()
'Open a Workbook
Workbooks.Open ("C:\Worksheet.Glider.xls")
End Sub
'--------------------------------------------------------
---


--
Kind Regards
Colo
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
_/_/_/
Colo of 'The Road of The Cell Masters' :)

URL:http://www.interq.or.jp/sun/puremis/colo/CellMastersL
ink.htm


/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
_/_/_/

"Macr" wrote in message
...
Hey all. I have just started to tinker with VB and have
next to no idea on how to code correctly. I want to
open
a worksheet and sorta code code like this:
Private Sub CommandButton1_Click()
Open_Worksheet.Glider_1
End Sub
Stop laughing! Can some one point me in the right
direction so it will open Sheet1 (Glider 1)? Thanx in
advance
Macr

.