How can i set a Combobox displayed on a userform to list the current
workbook sheet names?


Corey....

Ok found this code, but it does not seem to popiulate the combobox with
anything though??

Private Sub ComboBox1_Click()
Dim Sh As Worksheet
Dim sVal As String
With ComboBox1
sVal = .Text
Clear
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name <> "Inputs" Then
AddItem Sh.Name
End If
Next
.Value = sVal
Worksheets(.Value).Activate
End With
End Sub

Any idea's

Corey....

Private Sub ComboBox1_Click()
If Len(ComboBox1.Value) Then
Worksheets(ComboBox1.Value).Activate
End If
End Sub

Private Sub ComboBox1_DropButtonClick()
Dim Sh As Worksheet
With ComboBox1
.Clear
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name <> "Inputs" Then
.AddItem Sh.Name
End If
Next
End With
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Corey" <(E-Mail Removed)>
wrote in message
Ok found this code, but it does not seem to popiulate the combobox with
anything though??

Private Sub ComboBox1_Click()
Dim Sh As Worksheet
Dim sVal As String
With ComboBox1
sVal = .Text
Clear
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name <> "Inputs" Then
AddItem Sh.Name
End If
Next
.Value = sVal
Worksheets(.Value).Activate
End With
End Sub

Any idea's
Corey....

Thank you Jim.
Perfectly done....


ctm
"Jim Cone" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Private Sub ComboBox1_Click()
> If Len(ComboBox1.Value) Then
> Worksheets(ComboBox1.Value).Activate
> End If
> End Sub
>
> Private Sub ComboBox1_DropButtonClick()
> Dim Sh As Worksheet
> With ComboBox1
> .Clear
> For Each Sh In ActiveWorkbook.Sheets
> If Sh.Name <> "Inputs" Then
> .AddItem Sh.Name
> End If
> Next
> End With
> End Sub
> --
> Jim Cone
> San Francisco, USA
> http://www.realezsites.com/bus/primitivesoftware
>
>
>
> "Corey" <(E-Mail Removed)>
> wrote in message
> Ok found this code, but it does not seem to popiulate the combobox with
> anything though??
>
> Private Sub ComboBox1_Click()
> Dim Sh As Worksheet
> Dim sVal As String
> With ComboBox1
> sVal = .Text
> Clear
> For Each Sh In ActiveWorkbook.Sheets
> If Sh.Name <> "Inputs" Then
> AddItem Sh.Name
> End If
> Next
> .Value = sVal
> Worksheets(.Value).Activate
> End With
> End Sub
>
> Any idea's
> Corey....
>
>