Unhide All Sheets

Unhide_All_Sheets Sub Unhide_All_Sheets()     Dim wks As Worksheet       For Each wks In ActiveWorkbook.Worksheets         wks.Visible = xlSheetVisible     Next wks End Sub

https://drive.google.com/drive/folders/1xsCCBp6sIEKx8QXZ5sCZR3bc1vB-7Iwa?usp=sharing

_______________________________________________________________________

• Unhide All Sheets Count

Sub Unhide_All_Sheets_Count()     Dim wks As Worksheet     Dim count As Integer       count = 0       For Each wks In ActiveWorkbook.Worksheets         If wks.Visible <> xlSheetVisible Then             wks.Visible = xlSheetVisible             count = count + 1         End If     Next wks       If count > 0 Then         MsgBox count & " worksheets have been unhidden.", vbOKOnly, "Unhiding worksheets"     Else         MsgBox "No hidden worksheets have been found.", vbOKOnly, "Unhiding worksheets"     End If End Sub

https://docs.google.com/spreadsheets/d/10O_H-04TGvgP6meZrf3Pbos36js8H4hb/edit?usp=sharing&ouid=112754456953253787996&rtpof=true&sd=true

_____________________________________________________________________

Unhide_Selected_Sheets Sub Unhide_Selected_Sheets()     Dim wks As Worksheet     Dim MsgResult As VbMsgBoxResult       For Each wks In ActiveWorkbook.Worksheets         If wks.Visible = xlSheetHidden Then             MsgResult = MsgBox("Unhide sheet " & wks.Name & "?", vbYesNo, "Unhiding worksheets")             If MsgResult = vbYes Then wks.Visible = xlSheetVisible         End If     Next End Sub

https://drive.google.com/drive/folders/1xsCCBp6sIEKx8QXZ5sCZR3bc1vB-7Iwa?usp=sharing