ExcelBanter - View Single Post

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