View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Otto Moehrbach Otto Moehrbach is offline
external usenet poster
 
Posts: 1,090
Default Auto Rename Excel Sheets in Workbook

Kulin
I don't understand what you are saying. Let's stick with the name of
the original sheet as I have it in the macro, "First".
As written, that macro will act if B3 is changed. The macro will create a
new blank sheet and name it the entry in B1 of the "First" sheet. Say that
name is Bell. You now have 2 sheets, the "First" sheet and the "Bell"
sheet. If you enter something in B3 of the Bell sheet, the macro will do
nothing.
Now refer to the "First" and "Bell" sheets and tell me what you want.
Otto
"Kulin Shah" wrote in message
...
HI Thanks fo the wonderful solution.

The formula actually helped.

But i wanted to copy the same Sheet (Template) to the new sheet if a cell
is
changed. The orinal Template will remain blank as per originally made one.

I hope you can solve this as well.

Brgds. Kulin



"Otto Moehrbach" wrote:

Kulin
The following macro will do what you want.
Because you do not want a new sheet added if the user makes an entry
change
in B3 of the new sheet, I needed to write the name of the original sheet
into the code in the macro. I assumed that name to be "First". Change
that
name in the macro as needed. Therefore, as written, the macro will do
nothing if the name of the host sheet is not "First".
Note that if B1 is blank, the new sheet will have the default name of
"Sheetx" where "x" is the number of the next sheet to be created.
Note that this macro is a sheet macro and must be placed in the sheet
module
of the "First" sheet. To access that module, right-click on the sheet
tab,
select View Code, and paste this macro into that module. "X" out of the
module to return to your sheet. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DestWs As Worksheet
If Me.Name < "First" Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
Set DestWs = Sheets.Add(after:=Sheets(Sheets.Count))
On Error Resume Next
DestWs.Name = Range("B1").Value
On Error GoTo 0
End Sub

"Kulin Shah" wrote in message
...
HI Otto,

Many thanks for understanding.

I would like Excel to create a new Sheet when Cell b3 is changed.

Also more if the user makes a further change in the new Sheet (in Cell
b3)
will it again create a new Sheet? No i do not prefer this if possible.

Also auto rename of the new Sheet with Cell value in cell b1

Awaiting for your response.

Many Thanks,


Kulin.
"Ed Thomas" wrote:

Otto Moehrbach wrote:
You can create as many sheets in an existing workbook as your
computer
memory can handle.
What do you mean by "Auto name the sheet name? Describe what you
want
to
do. HTH Otto
"Kulin Shah" wrote in message
...
--------------------------------------------------------------------------------

HI,

1. I would like to know if i can Auto name the sheet name.??

2. Also more if i would want to make changes to a workbook, can a
seperate
sheet be created in the same existing workbook?

Plz Help.


Kulin.




Pardon the intrusion off subject. Otto have been trying to contact you
regarding an update to the invoice template you did for us a few years
ago. All e-mails bounce back. Please contact me at .
Thanks,

Ed