Hi Neil

Try out the below

Dim ws as Worksheet
If MsgBox("Print visible sheets", vbYesNo) = vbYes Then
For Each ws In Sheets
If ws.Visible Then ws.PrintOut Copies:=1, Collate:=True
Next
Else
Exit Sub
End If


--
Jacob


"Neil Holden" wrote:

Would it be possible to then ask the user if they would like to print the
visable sheets? If yes then print if no then exit sub?

Thanks for your help Jacob.

"Jacob Skaria" wrote:

as below

Sheets("payment cert").Visible = True

--
Jacob


"Neil Holden" wrote:

Thanks for that jacob, if the sheets are named do i just do the following:
Dim varData as Variant

varData = ActiveSheet.Range("C35")

If varData < 10000 Then
payment cert.Visible = True
Sheets(4).Visible = True
Sheets(8).Visible = True
ElseIf varData 10000 Then
small works order.Visible = True
Sheets(5).Visible = True
Sheets(6).Visible = True
Sheets(7).Visible = True
End If



"Jacob Skaria" wrote:


Dim varData as Variant
varData = ActiveSheet.Range("C35")

If varData < 10000 Then
Sheets(2).Visible = True
Sheets(4).Visible = True
Sheets(8).Visible = True
ElseIf varData 10000 Then
Sheets(3).Visible = True
Sheets(5).Visible = True
Sheets(6).Visible = True
Sheets(7).Visible = True
End If
--
Jacob


"Neil Holden" wrote:

Hi all Gurus, I have a button and when clicked I need to work out if cell c
35 is less than 10000 and if so show sheets:

- Sheets 2,4,8

and if cell C35 is greater than 10000 show:

- Sheets 3,5,6,7

Thanks