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)
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 =
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
--
--