VBA Code for Print exclude not working

Maybe:

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: Exit For: End If
    Next j
    'If Count = 0 Then Worksheets(i).PrintOut copies:=1
    If count = 0 Then Worksheets(i).PrintPreview
    count = 0
Next i
End Sub

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Hi sintek,

It ran like a charm!

Sub don’t_print_sheet()
    Dim Count As Long, i As Long, j As Long
    Dim ShtName
    ShtName = Array("DATABASE", "DROPDOWN", "MASTER") '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: Exit For: End If
    Next j
    'If Count = 0 Then Worksheets(i).PrintOut copies:=1
    If Count = 0 Then Worksheets(i).PrintPreview
    Count = 0
Next i
End Sub

Hi sintek,

The sheet names have to match exactly: DATABASE will not Match Database etc.

So, by comparing a lower case sheet name with database we can get our match.

Hope that's enough to explain. If not I'll try too be more explicit

Orrin

I see that the ws.name is case sensitive and in the sample you sent they are all upper case but your other program is proper case - try:

Sub Print()
Unload Me
Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        If LCase(ws.Name) <> "database" And _
            LCase(ws.Name) <> "master" And _
            LCase(ws.Name) <> "dropdown" Then
            ws.PrintPreview
        End If
    Next ws

End Sub

Glad you got it! And, thanks for the rep!