definiertes Tabellenblatt einfügen

Sub Blatterstellen()
Dim wks As Worksheet
Dim neu As String
neu = InputBox("Bitte geben Sie einen Namen ein:")
If neu = ("") Then
Exit Sub
End If
For Each wks In ThisWorkbook.Worksheets
If wks.Name = neu Then
MsgBox "Blattname existiert schon !", vbInformation, _
"A C H T U N G ! ! !"
Exit Sub
End If
Next wks
Sheets.Add
ActiveSheet.Name = neu
End Sub

Jetzt zur eigentlichen Frage.
Ist es möglich, das ein vorgefertigtes Blatt(z.B. mit Bild, Text o.ä.) unter diesem Code
erstellt wird, also kein "Blankoblatt"?
LG
Steff