Need to Print Hidden Pages with value in a range

I Borrowed this from Ron Debruin's website, it works great but I need it to also print any sheets that are hidden with a value in A600.
Any ideas? I tried a few changes but kept getting errors. Thanks

Sub Print_All_Worksheets_With_Value_In_A1()
    Dim Sh As Worksheet
    Dim Arr() As String
    Dim N As Integer
    N = 0
    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Visible = xlSheetVisible And Sh.Range("A600").Value <> "" Then
            N = N + 1
            ReDim Preserve Arr(1 To N)
            Arr(N) = Sh.Name
        End If
    Next
    With ActiveWorkbook
        .Worksheets(Arr).PrintOut
    End With
End Sub

Hi, Here is the solution that works.

Sub Print_All_Worksheets_With_Value_In_A600()
    Dim Sh As Worksheet
    Dim Arr() As String
    Dim N As Integer
    N = 0
    Call PrintSlideSheet
    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Range("A600").Value <> "" Then
            N = N + 1
            ReDim Preserve Arr(1 To N)
            Arr(N) = Sh.Name
        End If
    Next
    With ActiveWorkbook
        For N = 1 To UBound(Arr)
If ActiveWorkbook.Worksheets(Arr(N)).Visible = xlSheetHidden Then
ActiveWorkbook.Worksheets(Arr(N)).Visible = xlSheetVisible
ActiveWorkbook.Worksheets(Arr(N)).PrintOut
ActiveWorkbook.Worksheets(Arr(N)).Visible = xlSheetHidden
Else
ActiveWorkbook.Worksheets(Arr(N)).PrintOut
End If
Next N

    End With
End Sub