I asked elsewhere how to make a template automatically apply to all new sheets, which was answered by by Bentlybob.
I changed my template name to sheet and placed it in the C:\Program Files\Microsoft Office\Office12\XLSTART folder, problem is that this works fine manually but I need to make new sheets automatically when new product names are entered in collumn A.
Basically I need to edit this code 


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsNew As Worksheet
    If Target.Cells.Count > 1 Then Exit Sub
     
    On Error Resume Next
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Set wsNew = Sheets(Target.Text)
        If wsNew Is Nothing Then Sheets.Add().Name = Target.Text
    End If
End Sub
To make a new sheet from a template rather than blank.
Thanks for any advise