Hi oakman,

I altered your code slightly and I was able to get it to print th
required sheets. See below:


Sub PrintMac()
For Each c In Worksheets("Sheet1").Range("SALES").Cells
If c.Value = "Print" Then
Sales_Sht_Name = c.Offset(0, -1).Value
With Worksheets
With c.Font
.Bold = True
.Italic = True
End With
Worksheets(Sales_Sht_Name).PrintOut Copies:=1, Collate:=True
End With
End If
Next c
End Sub


Regards

Seamu

--
Message posted from http://www.ExcelForum.com