printing PDF'a with vba

[Mr Integrity]

Hello all

I have a file with about 100 different sheets. I need to be able to print individual pdf's of each sheet automatically. I currently use the following
Dim ws As Worksheet

For Each ws In Worksheets
ws.Select
nm = ws.Name

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\\Users\Daniel Bean\Desktop\CFO" & nm & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Next ws

End Sub

This works fine but the problem is that I do not want all sheets printed nor the same ones each time. How can I make a list to tell it which ones I want to print or even better how can I program it to print only sheets that a certain cell is > 0? Any help would be greatly appreciated.

 

[Fluff]

Hi & welcome to MrExcel.
How about

For Each Ws In Worksheets
   If Ws.Range("A1").Value > 0 Then
      Nm = Ws.Name
      
      Ws.ExportAsFixedFormat Type:=xlTypePDF, _
         FileName:="C:\\Users\Daniel Bean\Desktop\CFO" & Nm & ".pdf", _
         Quality:=xlQualityStandard, IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, OpenAfterPublish:=False
   End If
Next Ws

 

[Mr Integrity]

This worked perfectly. I knew there was a simple solution I was just missing it. Thank you so much.

 

[Fluff]

Glad to help & thanks for the feedback

 

[Mr Integrity]

Hello again
Well now I seem to have another problem. It does indeed print the sheets I want to separate pdf files, named the same as the sheet name. The problem is each pdf is not
actually that sheet. In other words every pdf regardless of name is the same. I have gone through and set print ranges for each individual sheet put it still prints only one
sheet just names it differently.

 

[Fluff]

It doesn't do that for me.
Are you sure you have

 [COLOR=#ff0000]Ws[/COLOR].ExportAsFixedFormat

 

[Mr Integrity]

Again I can't thank you enough!

 

[Fluff]

You're welcome