Sub printsheets()
With Worksheets("sheet1")
Set rng = .Range("A2:A5")
End With
For Each c In rng
Set sh = Worksheets(c.Value)
sh.PrintPreview
Next
End Sub


--
Don Guillett
SalesAid Software

"cbm" wrote in message
ups.com...
I´ve got a list of certain sheet name´s and i need a command button
to print or preview only that sheets.
Example:

a1 Sheet3
a2 Sheet7
a3 Sheet10
....


Any idea???

Thanks a lot