The code will surely insert sheets after the last sheet in the
workbook, but what if we want to insert sheets before any particular
sheet ? let's say before active sheet or the fourth sheet. What should
be written instead of Sheets.Add after:=Sheets(Sheets.Count) ???
On Sep 4, 12:40 pm, siti Vi <villager.g...@gmail.com> wrote:
> 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
>
>
>
> ctv_InsertNewSheets_with_SpecificNames.xls
> 49KViewDownload
--
----------------------------------------------------------------------------------
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
