Without seeing your work book, I'm doing some guessing here, but I think that the following code may do the task for you:-
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsStart Sida As Worksheet
Dim wsNew As Worksheet
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("A9:A" & Rows.Count)) Is Nothing Then Exit Sub
On Error Resume Next
Set wsNew = ThisWorkbook.Sheets(Target.Value)
'This next part of the code will check to see if a sheet with the same name 'exists. If it does, a message box will pop up warning you of this.
If Not wsNew Is Nothing Then
MsgBox "A sheet for name " & Target.Value & " already exists. No new sheet will be added.", vbExclamation
Set wsStart Sida = ActiveSheet
.Name = Target.Value
MsgBox "A new sheet is ready!", vbExclamation
To implement the code, right click on the active sheet (Start Sida), select "view code" and in the big white field that appears, paste the above code.
Now, every time that you enter a new name in Column A in "Start Sida", click away and the code will activate creating a new named sheet for you.
You will need to name your Sheet 7 as Template.
I feel that an error will arise, so it would be best if you could upload a sample of your work book (be careful with any sensitive data) so that we can see exactly what you would like to do. You can upload a sample by using a free file sharing site such as DropBox, ge.tt or SpeedyShare and then post back here the link to your sample file.
I hope that this helps.