[VBA] Δημιουργία νέου φύλλου

[Lokos]

Καλημέρα και συγχαρητήρια στο φόρουμ!

Σε βιβλίο Excel προσπαθώ με αυτοματοποιημένα να προσθέσω ένα νέο φύλλο στο βιβλίο που να παίρνει το όνομα
τον ημερολογιακό αριθμό της εβδομάδας πχ. εβδομάδα4
και να του προσθέτω ένα κουμπι σε συγκεκριμένο σημείο του φύλλου το οποίο και θα συνδέεται με τη μακροεντολή 'CreateNewBook'.

Δοκίμασα με macro recorder αλλά δεν λειτουργεί.

Μπορεί κάποιος να μου πεί τί θα πρέπει να άλλάξω στην ακόλουθη μακροεντολή
για να δουλεύει αποτελεσματικά;

Sub Macro4()
'
' Macro4 Macro
'

'
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet5").Select
Sheets("Sheet5").Name = "Week4"
Range("E3").Select
ActiveSheet.Buttons.Add(194.25, 30, 72, 72).Select
Selection.OnAction = "Macro4"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "CreateNewBook"
With Selection.Characters(Start:=1, Length:=15).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Selection.ShapeRange.ScaleWidth 1.88, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
Range("A1").Select
End Sub

Ευχαριστώ εκ των προτέρων

Γιώργος