How to name a new worksheet that is added through VB

[amiersen]

I am using this code to create a new worksheet within an "IF" statement:

Application.Worksheets.Add

How do I rename this new worksheet without needing to know what (automatic) name it was assigned (ex. Sheet1)

Thanks!

 

[Von Pookie]

You can use a variable to do it. You don't mention what your If statement is, so I just threw one together:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> AddSheet()
<SPAN style="color:#00007F">Dim</SPAN> NewSheet <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Variant</SPAN>

<SPAN style="color:#00007F">If</SPAN> 1 + 1 = 2 <SPAN style="color:#00007F">Then</SPAN>
    <SPAN style="color:#00007F">Set</SPAN> NewSheet = Worksheets.Add
    NewSheet.Name = "This is the New Sheet"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

If you need to, this can also be set up so that the name of the sheet is determined by user input instead of 'static' in the code as it currently is.

 

[Cbrine]

application.worksheets.add
activesheet.name = "NewSheet"

 

[Smitty]

Something along these lines (note no testing for invalid characters):

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> NewSheet()
    <SPAN style="color:#00007F">Dim</SPAN> strShtName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
        strShtName = InputBox("What do you want to name me?", "New Sheet Name")
        
        Worksheets.Add
        ActiveSheet.Name = strShtName
      
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

Smitty

 

[Richie(UK)]

Hi,

Here are a couple of choices (BTW - no need for the big, bold writing - it just annoys people!)

Sub Macro1()
    Worksheets.Add
    ActiveSheet.Name = "Bob"
End Sub

Sub Macro2()
    Dim ws As Worksheet
    Set ws = Worksheets.Add
    ws.Name = "Bob2"
End Sub

 

[amiersen]

Thanks! That worked