Hi Mearsy,

Personally, the way I would do this is to set the code below up as a module and then tell it to call the module from your subs so that on a click of either of the buttons. Once the sheet has been created, it will be listed.


Sub ListWorksheets()
     
     'Lists all the sheet names in the workbook onto the _
    first sheet (starting at cell H1(Change the number 8 if you want this else where.))
     
    Dim i As Integer
    For i = 1 To Worksheets.Count
        Worksheets(1).Cells(i, 8) = Worksheets(i).Name
    Next i
     
End Sub
Once that is set up as a module. Write in the existing codes.

Call Module1.ListWorksheets
Regards

Danny