Create a new worksheet with macro. Needs to check worksheet names, to make the new name. And add some new formul.

[idont]

Hi,

I'm making a "userdatabase".

My exceldocumenct contains these sheets:
Overview - Will automatically look through User1 to User150 to make some graphs.
Users - A list with all users
User1 - The database with userinfo
User150 - The database with userinfo
Template - The database template for userinfo.

In Users I want to have a button that says Create new user so when I hit it, I want excel/macro to make a copy of Template, check what sheet name is available after User1, give it that name, in this case User2 and place it after User1. I also want some data changed in cell E2, E3, E4, E5, E6 in the new worksheet, really just a number. So for User1, the cell E2 contains this: =Users!E7 so in worksheet User2, this cell should contain =Users!E8

Anyone have some code I could try out?

 

[onlyadrafter]

Hello,

Does this work as expected?

Sub CREATE_NEW_USER()
    Sheets("Template").Copy Before:=Sheets(Sheets.Count - 1)
    ActiveSheet.Name = ("User" & Sheets.Count - 4)
    Range("E2").Formula = "=USERS!E" & Sheets.Count + 2
End Sub