This macros is exellent, thanks from Puerto Rico. ________________________________________
P Please consider the environment before printing this e-mail. This e-mail, including any attachments, is intended solely for the person or entity to which it is addressed and may contain confidential, proprietary and/or non-public material. Except as stated above, any review, re-transmission, dissemination or other use of, or taking of any action in reliance upon this information by persons or entities other than an intended recipient is prohibited. If you receive this in error, please so notify the sender and delete the material from any media and destroy any printouts or copies. siti Vi <villager.g...@gmail.com> Sent by: excel-macros@googlegroups.com 09/04/2010 03:40 AM Please respond to excel-macros@googlegroups.com To excel-macros@googlegroups.com cc Subject Re: $$Excel-Macros$$ Insert work sheet and rename when insert. Sub CreateMoreSheets() '-- by siti Vi / Jakarta, Sept 4, 2010 Dim shtArr Dim i As Integer shtArr = InputBox("Type the Sheet's Name, separate by comma (,)") shtArr = Split(shtArr, ",") For i = 0 To UBound(shtArr) Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = shtArr(i) Next End Sub On Sat, Sep 4, 2010 at 12:48 AM, santanu_ca <santanu...@gmail.com> wrote: > > Hi > I want to insert multiple sheet. Say 10 sheet and I want to rename > those sheet as per my choice. > That is a window will come and I type my choiceable name then the > sheet is created. If there is any macro code for that please help me. > > Thanks > Santanu -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 7000 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe[attachment "ctv_InsertNewSheets_with_SpecificNames.xls" deleted by Wilfredo Burgos/USA/NA/Praxair] -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 7000 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe