VBA to Unhide/Show All Sheets

!....VBA program to Unhide all Sheets in the Active Workbook....!

Sub Unhide_AllSheets()
Dim wb As Worksheet
For Each wb In Worksheets
wb.Visible = 1
Next wb
End Sub

Sub AllSheets_Unhide()
For i = 1 To Worksheets.Count
Sheets(i).Visible = 1
Next
End Sub

Sub Show_AllSheets()
Dim i
i = 1
While i <= Sheets.Count
Worksheets(i).Visible = True
i = i + 1
Wend
End Sub