Macro : Adding Code (Font Size 14 and Merge Cell)

[muhammad susanto]

hi all..
the following code work well. i want to adding code so can work
i have several sheets and that code work for multiple sheets. I want to :
1. automatic insert 1 row in row or cell A1 (for all sheets)
2. adding font size 14 (automatic in all sheet in cell A1 till E1
3. merge cell A1 till E1 for each sheet

Sub Header()
Dim ws As Worksheet
For Each ws In Sheets
   ws.Range("A1") = "Counting -" & ws.Index
Next
End Sub

thank for your help.
.sst

 

[muhammad susanto]

sorry note :
.....Merge Cell and CENTRE

 

[muhammad susanto]

i have trying this but no work

Sub Header()
Dim ws As Worksheet
For Each ws In Sheets
   ws.Range("A1") = "Counting -" & ws.Index
   Range("A1:E1").MergeCells.Centre = True
   .font.size = 14
Next
End Sub

How to make work?

 

[Fluff]

Yet again cross posted without links.
Please supply them now & ALWAYS.

 

[muhammad susanto]

across posting from Adapt Vba Code (Font Size & Merge Center) [SOLVED]

Sub Header()

Dim ws As Worksheet

For Each ws In Sheets
   With ws.Range("A1:E1")
      .Cells(1) = "Counting -" & ws.Index
      .Merge
      .Font.Size = 14
      .HorizontalAlignment = xlCenter
   End With
Next

End Sub