Note that using numbers for sheet names is not best practice.
For Each cel In Selected wbFake.Sheets(CStr(cel.Value)).Copy After:=wbTOC.Sheets(1) Next cel
Note that using numbers for sheet names is not best practice.
For Each cel In Selected wbFake.Sheets(CStr(cel.Value)).Copy After:=wbTOC.Sheets(1) Next cel
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Reply With Quote
