Add To Multiple Worksheets

I have 4 sheets that use the same template.

Now user has option to add new Rows to it.

There are few predefined row layouts (using diffrent lists as column values).

This is code that i tryed to use:
Only adding new row and insertin its name (i didnt try formating cells yet since i cant get this simple stuff to work).

Dim ActiveSheetName As String
ActiveSheetName = ActiveSheet.Name

Sheets( Array("Week One", "Week Two", "Week Three", "Week Four")).Select

Range("A14").Select
Selection.End(xlDown).offset(1, 0).Select
Selection.EntireRow.Insert
Selection.Value = TextBox1.Value

But this code only enters new row in first sheet (Week One).

Other sheets are unchnged.

TextBox value is enterd in 4 sheets.