Try this:-

Sub selectiveprint()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Select
If ActiveSheet.Tab.ColorIndex = 6 Then
wSheet.PrintOut
End If
Next wSheet
End Sub


Mike


"Saintsman" wrote:

Is it possible to print only those tabs of a particular colour - say yellow?

Saintsman