Không thể hiện tất cả worksheet của 1 workbook được

[Lequocvan]

em Không thể hiện tất cả worksheet của 1 workbook được mặc dù đã:
Sub UnHideAllSh()
Dim Ws As Worksheet
On Error Resume Next
For Each Ws In ActiveWorkbook.Worksheets
Ws.Visible = -1
Next
End Sub

và


Sub Unhide()
Dim i, SheetCount, SheetHidden()
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetHidden(1 To SheetCount)
For i = 1 To SheetCount
SheetHidden(i) = Not ActiveWorkbook.Sheets(i).Visible
If SheetHidden(i) Then ActiveWorkbook.Sheets(i).Visible = True
Next i
End Sub

NHƯNG VẪN DI CHUYỂN QUA CÁC SHEET ĐƯỢC bằng CTRL+PgUp (PgDn)
Mọi người ơi giúp em với.!.!.

File gốc có 16 sheet, em tạo ra một sheet mới bằng Ctrl+F11 thì okey, nhưng khi xem trong Alt+F11 lại không thấy nó ?

Em thấy file này cao thủ quá.>.
Mọi người ới giúp em với nha .!.!.