Rename the sheet just added

[Newbie]

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

 

[Don Guillett]

try
Sub addshandname()
mn = InputBox("Name")
Sheets.Add.Name = mn
End Sub

 

[Newbie]

Thanks - works a treat

try
Sub addshandname()
mn = InputBox("Name")
Sheets.Add.Name = mn
End Sub

 

[Don Guillett]

glad to help