VBA Code Help with Text align and All Borders

[philb99]

I have had some brilliant help in this forum with this code.

What I would like to try and add when creating the new Column A is to ensure any new text is set to "Top Align" and Create an "All Borders" around the New Cells in Column A

Sub EnterTeamName()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
With ws
.Columns(1).Insert
.Columns(1).Font.Name = "Arial"
.Columns(1).Font.Size = 8
.Range("A1") = "Team"
.Range("A2").Resize(ws.Cells(ws.Rows.Count, "B").End(xlUp).Row - 1) = .Name
End With
Next ws
End Sub

 

[Fluff]

How about

Sub philb99()
Dim ws As Worksheet
   For Each ws In ActiveWorkbook.Worksheets
      With ws
         .Columns(1).Insert
         .Columns(1).Font.Name = "Arial"
         .Columns(1).Font.Size = 8
         With .Range("A1").Resize(ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
            .Value = .Parent.Name
            .VerticalAlignment = xlTop
            .Borders.Weight = xlThin
         End With
         .Range("A1") = "Team"
      End With
   Next ws
End Sub

 

[philb99]

Perfect - thank you

 

[Fluff]

You're welcome & thanks for the feedback