Unhide all sheets in an Excel file

Might be useful if you want to unhide a large number of sheets in an Excel file:

Function SetAllSheetsVisible()
    Dim numberOfSheets As Integer
    numberOfSheets = Sheets.Count

    For sheetIndex = 1 To numberOfSheets
        Sheets(sheetIndex).Visible = True
    Next sheetIndex
End Function

Kick It auf dotnet-kicks.de

Leave a Reply

Your email address will not be published.