Как показать все рабочие листы в пользовательской форме в VBA?

Question

Я использовал свой код, чтобы открыть рабочую книгу. После выбора рабочей книги я хочу запросить пользовательскую форму, в которой будут отображаться все рабочие листы, принадлежащие рабочей книге. Вот мой код:

Function WorksheetExists(WSName As String) As Boolean
   On Error Resume Next
       WorksheetExists = Worksheets(WSName).Name = WSName
       On Error GoTo 0
End Function

Sub Button1_Click()
  Dim shname As String, ssname As String
  Dim wb As String, wc As String
  wc = Application.GetOpenFilename
   If wc <> "False" Then Workbooks.Open wc
     Do Until WorksheetExists(ssname)
      ssname = InputBox("Enter sheet name")
       If Not WorksheetExists(ssname) Then
          MsgBox ssname & " doesn't exist!", vbExclamation
       Else
         WSName = ssname

         Sheets(ssname).Select
       End If
       Loop
End Sub