Whats wrong with this line of code?

[Guest]

Worksheets.Add.name = range_s after:=Worksheets(Worksheets.Count)

Comes up with the error 'Compile error - Expected end of statement'

Thanks

 

[Bob Phillips]

Edgar,

Don't think you can name it and place it in one statement. Try

Set oWs = Worksheets.Add(after:=Worksheets(Worksheets.Count))
oWs.Name = range_s

 

[Dana DeLouis]

Putting the "name" at the end should do it.

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Test"

 

[Tom Ogilvy]

You can also do it this way:

Sub AddSheet()
range_s = "NewSheet"
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = range_s
End Sub

 

[Bob Phillips]

I live and learn <vbg>

Bob

You can also do it this way:

Sub AddSheet()
range_s = "NewSheet"
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = range_s
End Sub