Fixed it RADO. Thanx for your help. I made an error
concerning spaces and underscores. I assumed that VB
would not understand a space and added an underscore. It
should look like this
Private Sub CommandButton1_Click()
Worksheets("Glider 1").Activate
End Sub

-----Original Message-----
:-)

Private Sub CommandButton1_Click()
Worksheets("Glider_1").Activate
End Sub

best,
RADO


"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


.