Hi All,

I have a userform that gathers some of my worksheets in the workbook.
have a hide & unhide command button that will hide and unhide th
worksheets (with the help of the NG).

I have been working on an option command button that would make th
userforms height larger, show a command button called Print Sheet(s)
and change the listbox list style property to fmListStyleOption an
fmMultiSelectSingle. Thinking that once the option command button ha
been clicked on it would in large the form change the list styl
property so the user can click on (checkbox) each sheet that they wan
to print then click on the command button Print Sheet(s) to print.

The problem I am having is that the list style is only showin
fmListStyleOption and I am trying to get it to show the checkboxe
instead. I think the form has a mind of its own as well (not really)
every time I click on the options button the sheets names disappear on
at a time. So, in other words the list box with sheet names slowly get
smaller (why).

Any help would be appreciated

Here is my code that I have been working with:

Option Explicit
Private Sub cmdExit_Click()
Unload Me
End Sub

' This is where I am having trouble or better yet causing
' myself a headache

Private Sub cmdOption_Click()
If cmdOption.Caption = "Options " Then
Me.Height = 160.5
cmdOption.Caption = "<< Options"
ListBox1.ListStyle = fmMultiSelectSingle + fmListStyleOption
Else
Me.Height = 197.25
cmdOption.Caption = "Options "
ListBox1.ListStyle = fmListStylePlain
End If
End Sub

Private Sub cmdUnhide_Click()
Dim L As Long
For L = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(L) Then _
Sheets(ListBox1.List(L)).Visible = True
Next
End Sub
Sub cmdHide_Click()
Dim L As Long
On Error Resume Next
For L = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(L) Then _
Sheets(ListBox1.List(L)).Visible = False
Next
End Sub
Private Sub ListBox1_Click()
Worksheets(ListBox1.Text).Activate
Range("a1").Select
End Sub

Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In Worksheets
Select Case wks.Name
Case "Parts List", "Sheet List", "All Parts", _
"All Part Numbers", "Enter Data", "Summary", _
"Logo", "HelpSheet"
Case Else: Me.ListBox1.AddItem wks.Name
End Select
Next
Me.Height = 160.5
End Su

--
Message posted from http://www.ExcelForum.com