Adding columns to multiple worksheets

[Salts]

Trying to create a macro that will add 2 new columns A & B with headers to each sheet in workbook.
This code works to add columns for all worksheets, but only puts the headers in the 1st worksheet.

Sub Insert_Columns()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

On Error Resume Next

ws.[a:b].Insert

Range("A1").Select
ActiveCell.FormulaR1C1 = "Date Deleted: After Master Tab is Created"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Date Added: After Master Tab is Created"

Next ws
End Sub

 

[Fluff]

Try

Ws.Range("A1").Value = "Date Deleted: After Master Tab is Created"
Ws.Range("B1").Value = "Date Added: After Master Tab is Created"

 

[Salts]

Thanks Fluff.

 

[Salts]

how about adding color to each of these headers?
I've tried adding ws. in front of each function but again it is only color coding the first worksheet.

ws.Range("A:A").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With

ws.Range("B:B").Select
With Selection.Font
.Color = -11489280
.TintAndShade = 0
End With

ws.Range("A1:B1").Select
Selection.Font.Bold = True
ws.Range("1:1").EntireRow.AutoFit
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
End With

 

[Fluff]

You can only select cells on the activesheet, so you need to do it like

With Ws.Range("A:A").Font
   .Color = -16776961
   .TintAndShade = 0
End With

 

[Salts]

Works perfect. Thanks for the help.

 

[Fluff]

You're welcome & thanks for the feedback