Printing worksheet tabs on labels

[Keith Pekkala]

I am printing out a workbook for insertion in a binder,
and it occured to me that it would be nice to have a one
step process to print all the worksheet tabs on Avery
labels. Have I missed it, or is this coming in the next
version? I am sure I am not the only one who would find
this quite useful.

 

[Keith Pekkala]

Thanks! The macro works fine.

Keith

-----Original Message-----
I've never printed to labels from Excel, but you can get a
list of all worksheet names in one column with this macro.
After that it shouldn't be too difficult. You might also
want to refer to MVP David McRitchie's website about
printing to labels from Excel:

http://www.mvps.org/dmcritchie/excel/mailmerg.htm

Click the first cell where you want to list your worksheet
names and run this macro:

Sub List_Sheets()
Dim i As Integer
Dim ws As Worksheet

i = 0
For Each ws In ActiveWorkbook.Worksheets
With ActiveCell.Offset(i, 0)
.Value = ws.Name
End With
i = i + 1
Next
End Sub

--
HTH
Jason
Atlanta, GA





.