Caraa a parte de listar as guias tem esse jeito aqui ele lista em uma combobox:

Sub Atualizar()
Dim ws As Worksheet
Dim wb As Workbook
Dim wsNome As String

Set wb = ActiveWorkbook

For Each ws In wb.Sheets
wsNome = ws.Name
COMBOBOX1.AddItem wsNome
Next
End Sub

' Quando selecionar o nome da quia ele vai dar um select na guia.

Private Sub cmbWS_Change()
Dim wsNome As String
wsNome = combobox1.Text
Sheets(wsNome).Activate
userform1.Hide
End Sub