About Us

Don Guillett[_4_]

glad to help

--
Don Guillett
SalesAid Software

"Newbie" wrote in message
...
Thanks - works a treat

"Don Guillett" wrote in message
...
try
Sub addshandname()
mn = InputBox("Name")
Sheets.Add.Name = mn
End Sub

--
Don Guillett
SalesAid Software

"Newbie" wrote in message
...
Hi,

I want to be able to programmatically insert a new worksheet and then
rename
this newly added sheet to the contents of an input box.
How can I reference the newly added worksheet from code?

eg
dim sName as string
Sheets.Add
sName = inputbox("Enter sheet name")
Sheets("Sheet4").Select
Sheets("Sheet4").Name = sName

The only problem with this code, I think, is that the newly created
worksheet will not always be called "Sheet4" as it will always
increment
by
1. Is there a way to count the no. of worksheets in a workbook so
that
I
can have a variable in the code instead of "Sheet4"

Thanks

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
how do i rename a sheet if the rename tab is inactive?	Nelson	Excel Worksheet Functions	1	March 3rd 10 10:28 AM
macro to: Add new sheet, then rename new sheet with todays date	Paul	Excel Worksheet Functions	3	September 29th 07 03:17 AM
Move data to new sheet - rename sheet based on criteria ?	[email protected]	Excel Discussion (Misc queries)	7	May 16th 07 10:22 PM
Rename Sheet	Linda@VZ	Excel Discussion (Misc queries)	1	November 2nd 05 12:43 PM
how do I rename a sheet	jonwyn	New Users to Excel	2	March 1st 05 08:36 PM