Cargar nombres de hoja en combobox

[waquiro]

Saludo cordial.

Por favor a quien me pueda ayudar .

Deseo cargar los nombres de las hojas en un combobox pero que este se de a partir de la hoja 5.

Prívate Sub Userform_Initialize

Dim hoja as Worksheet.   

Combobox1.clear 

For Each hoja un Worksheets 

MySheet= hoja.name

Combobox1.Additem MySheet 

Next 

End Sub 

Este código me carga la totalidad de los 

Nombres de las hojas en el combo y requiero que solo me cargue los nombres apartir de la hoja 5 .

De ante mano, mil gracias a quien me pueda colaborar 

 

 

 

 

 

 

 

[JSDJSD]

Prueba y comenta

Private Sub CommandButton1_Click()
    ComboBox1.Clear
    For Each hoja In Sheets
        If hoja.Name > "Hoja4" Then
            ComboBox1.AddItem hoja.Name
        End If
    Next
End Sub

 

[Antoni]

Private Sub CommandButton1_Click()
   For x = 6 To Sheets.Count
      ComboBox1.AddItem Sheets(x).Name
   Next
End Sub

 

[waquiro]

Mil gracias ... justo lo que requeria .

Bendiciones