Code – Lists the sheet names in a workbook

Sub Namelist() ‘Lists the sheet names in a workbook Dim i As Integer Sheets.Add Before:=Sheets(1) For i = 2 To Worksheets.Count Sheets(1).Cells(1, 1).Value = “Worksheet names” Sheets(1).Cells(i, 1).Value = Worksheets(i).Name Next End Sub

Code – Unhide sheets

Sub Unhide() ‘Unhides sheets in a workbook Dim x As Worksheet For Each x In Worksheets x.Visible = xlSheetVisible Next End Sub