Help Fixing Error on Print Macro

Hi Again,
I tried changing the .Worksheets to .Sheets, but still got the same error. Here is the existing code.

Sub Print_All_Worksheets_With_Value_In_A600()
    Dim Sh As Worksheet
    Dim Arr() As String
    Dim N As Integer
    N = 0
    For Each Sh In ActiveWorkbook.Sheets
        If Sh.Visible = False And Sh.Range("A600").Value <> "" Then
            N = N + 1
            ReDim Preserve Arr(1 To N)
            Arr(N) = Sh.Name
        End If
    Next
    With ActiveWorkbook
        .Sheets(Arr).PrintOut 'This is where I get the debug error
    End With
End Sub

Any help would be appreciated.
Thanks