Snasui Excel Forum

Code: Select all

Sub FilComboBox()
Dim MyName() As String
Dim MyTotalSheets As Integer
Dim i As Integer
Sheets("INDEX").ComboBox1.Visible = True
Sheets("INDEX").ComboBox1.DropDown
MyTotalSheets = Application.Worksheets.Count
ReDim MyName(MyTotalSheets)
    For i = 1 To MyTotalSheets
           MyName(i) = Sheets(i).Name
           ActiveSheet.ComboBox1.AddItem MyName(i)
    Next i
End Sub

Code: Select all

Private Sub ComboBox1_Click()
    Worksheets(ComboBox1.Value).Select
    ComboBox1.Visible = False
End Sub

Code: Select all

ActiveSheet.ComboBox1.Clear

Code: Select all

Sub FilComboBox()
Dim i As Integer
ActiveSheet.ComboBox1.Clear
    For i = 1 To Application.Worksheets.Count
           ActiveSheet.ComboBox1.AddItem Worksheets(i).Name
    Next i
End Sub

Code: Select all

Sub FilComboBox()
Dim i As Integer
ActiveSheet.ComboBox1.Clear
Sheets("INDEX").ComboBox1.Visible = True
  For i = 1 To Application.Worksheets.Count
           ActiveSheet.ComboBox1.AddItem Worksheets(i).Name
  Next i
       Sheets("INDEX").ComboBox1.DropDown
  End Sub

Code: Select all

Private Sub ComboBox1_Click()
    Worksheets("INDEX").ComboBox1.Visible = False
    Worksheets(ComboBox1.Value).Select
End Sub

Code: Select all

Sub FilComboBox()
Dim i As Integer
    With UserForm1.ComboBox1
        .Visible = True
        .Clear
        For i = 1 To Application.Worksheets.Count
                .AddItem Worksheets(i).Name
        Next i
        .DrowDown
    End With
End Sub

Code: Select all

Private Sub ComboBox1_Change()
    On Error Resume Next
    Worksheets(UserForm1.ComboBox1.Text).Select
    Me.Hide
End Sub

Private Sub ComboBox1_DropButtonClick()
    With UserForm1.ComboBox1
        .Top = Range("H22").Top
        .Left = Range("H22").Left
    End With
End Sub