With worksheets("Sheet1")
varr = Split(.Range("A1"))
End With
sheets(varr).Select
ActiveWindows.SelectedSheets.PrintPreview
Works in xl2000 or later.
--
Regards,
Tom Ogilvy
"ianripping " wrote in message
...
I have a list of sheets in cell A1:-
"Index", "Area 1", "Area 2"
I want to create a macro that will print out these sheets, some thing
like
sheetrange = range("a1")
sheets(array(sheetrange)).select
selectedsheets.printpreview
can someone help me out on this one?
--- Message posted from http://www.ExcelForum.com/