Print if cells = yes

[buzz71023]

I need to print a sheet named "Porosity" if cell A1 on the "Porosity" sheet equals "yes". I would like to be able to print with my current button on sheet "Data Sheet".

I am also open to other suggestions if anyone has any.

 

[Smitty]

Off the cuff, maybe:

Dim ws as Worksheet
  Set ws = Sheets("Porosity")
    If ws.Range("A1").Value = "Yes" then ws.PrintOut

HTH,

 

[buzz71023]

Thank you for you help. Took a little while to incorporate it with my current code but it does work. This may even help me expand it more. Thanks again.