Add worksheet

[tintin1012000]

I need a macro to add a work sheet template to an existing work book,
I can add a blank work sheet no prob but it needs to be a template

Can this be done

 

[obiron]

Where is the template?

Normally a workbook is template not a sheet.

you can open a template workbook and then copy a worksheet from it.

alternatively the template worksheet could be hidden and you could copy it and make the copy unhidden.

would this solve the problem?

 

[tintin1012000]

Solved

Sub Insert_Sheet_Template()
Dim sh As Worksheet
Dim shName As String

'name of the sheet template
shName = "qualitycircletemplate.xlt"

'Insert sheet template
With ThisWorkbook
Set sh = Sheets.Add(Type:=Application.TemplatesPath & shName, _
after:=.Sheets(.Sheets.Count))
End With

'Give the sheet a name, today's date in this example
On Error Resume Next
sh.Name = Format(Date, "yyyy-mmm-dd")
If Err.Number > 0 Then
MsgBox "Change the name of Sheet : " & sh.Name & " manually"
Err.Clear
End If
On Error GoTo 0
End Sub

 

[obiron]

nice one tintin and thanks for posting back your solution.

One thing- you should check if the sheet name already exists before you try to create it, just in case....