so notify the sender and delete the material from any media and destroy
any printouts or copies.
siti Vi
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
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 w
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 =