VBA Code for Print exclude not working

Hi All

I have the following codes for a print exclude that does not work - it should but prints out all sheets. Any Ideas Please.

Sub don’t_print_sheet()
    Dim sht
    Dim ShtName
    ShtName = Array("Sheet1", "Sheet2", "Sheet3") 'ADD SHEET NAMES HERE NOT TO PRINT
For i = 1 To Worksheets.Count
    For J = 0 To UBound(ShtName)
        If Worksheets(i).Name = ShtName(J) Then Count = 1
    Next J
    'If Count = 0 Then Worksheets(i).PrintOut copies:=1
    If Count = 0 Then Worksheets(i).PrintPreview
    Count = 0
Next i
End Sub

Sub Print()
Unload Me
Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Database" And _
            ws.Name <> "Master" And _
            ws.Name <> "Dropdown" Then
            ws.PrintPreview
        End If
    Next ws

End Sub