VbA code to print specific worksheets based on value of a worksheet

[amxtomzo]

I am prepareing to create a new spreadsheet and one of my thoughts that I want to be able to do is, I want to put into a command button printing only specific worksheets in a workbook only if on that sheet cell A1 has a value.

for example if evrything works out right, i may only want to print out sheets 1,2,3,4 & 5 only because cell A1 will have a value, it will be text if it does. I do not want to print out sheets 6, 7, 8, 9 & 10 because cell A1 has no value at all.

So there is a range of 10 Worksheets, but only a few could have information on them and those would the sheets I want to print out

the referenceing cell will be exactly the same on all worksheets.

Can this be done????

 

[Trevor G]

Are you saying that each sheet has a value in A1 then print that sheet if so then try this code

Sub printout1()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Range("A1") <> "" Then
ws.PrintOut
End If
Next ws
End Sub

 

[amxtomzo]

thank you Trevor, I was so off base on that
Workewd liek a charm on a my test pages

Thomas

 

[Trevor G]

Pleased to read you have a working solution Thomas.