exclude sheets based on value

[bak]

I have a l macro that performs on all sheets, now I want to exclude a few sheets based on cell value. How can I fix that?

 

[Trevor G]

Can you show your code

 

[bak]

Dim Rng As String
Dim Wks As Worksheet
Rng = "$A$2:$N66"
For Each ws In Worksheets
With ws.PageSetup
.PrintArea = Rng
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next ws
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub

exclude sheet if cel A300 isn't yes

 

[Trevor G]

You miss spelled on of your references and you have the activeworkbook set to print, so you would have to change the code to print each sheet, to check it out what I have included is to give you a message box for each sheet that is being printed, test it on a workbook with a couple of sheets and if it works the way you want just comment out the msgbox:

Sub checkSheet()
Dim ws As Worksheet
Dim Rng As String
Rng = "$A$2:$N66"
For Each ws In Worksheets
If ws.Range("A300") = "Yes" Then
With ws.PageSetup
.PrintArea = Rng
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ws.PrintOut copies:=1
MsgBox ws.Name
End If
Next ws
End Sub