copy sheet1 and name sheets using names from a range

Posted to microsoft.public.excel.programming

external usenet poster

Posts: 13

copy sheet1 and name sheets using names from a range

I want to modify this macro so that it copies sheet1, the appropriate number
of times.
At present it adds new blank sheets.

Sub CopySheet1()
Dim arr As Variant
arr = Range("i1:i44").Value
For i = LBound(arr) To UBound(arr)
Set NewSheet = Sheets.addd
NewSheet.Name = arr(i, 1)
Next i

End Sub

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Data in sheet1 to be put into sheets 2, 3, 4, 5, etc	Cord	Excel Discussion (Misc queries)	2	December 18th 09 10:19 AM
VBA Code Required for deleting All Sheets except Sheet1	Ms-Exl-Learner	Excel Discussion (Misc queries)	7	November 3rd 09 10:19 AM
Match Names in columns then copy associated info from 2 sheets	Seantastic	Excel Worksheet Functions	4	October 29th 08 08:29 PM
Sheets named from range, and copy data?	[email protected]	Excel Discussion (Misc queries)	4	January 12th 07 02:53 PM
How do I set up a workbook so changing Sheet1 changes all sheets?	rach1027	Excel Worksheet Functions	1	June 7th 05 10:12 AM

All times are GMT +1. The time now is 02:16 AM.

Menu

About Us