How do I get a list of WS from a WB? Jonah
C Chip Pearson Feb 26, 2006 #2 John, Try some code like Sub AAA() Dim Dest As Range Dim WS As Worksheet Set Dest = Range("A1") 'change as desired For Each WS In ThisWorkbook.Worksheets Dest.Value = WS.Name Set Dest = Dest(2, 1) Next WS End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com
John, Try some code like Sub AAA() Dim Dest As Range Dim WS As Worksheet Set Dest = Range("A1") 'change as desired For Each WS In ThisWorkbook.Worksheets Dest.Value = WS.Name Set Dest = Dest(2, 1) Next WS End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com
