[已解决]求一段代码，请各位老师帮帮忙，谢谢！

爱疯

Sub yc() '隐藏
    Dim arr, i%, j%

    arr = [{"C","D","E","F"}]
    For i = 1 To Worksheets.Count
        For j = 1 To UBound(arr)
            If arr(j) = Sheets(i).Name Then
                Sheets(i).Visible = 0
            End If
        Next j
    Next i
End Sub

Sub byc() '不隐藏
    Dim arr, i%, j%

    arr = [{"C","D","E","F"}]
    For i = 1 To Worksheets.Count
        For j = 1 To UBound(arr)
            If arr(j) = Sheets(i).Name Then
                Sheets(i).Visible = -1
            End If
        Next j
    Next i
End Sub