Using Multiple Worksheets

[AlexanderBB]

I'm creating and populating yearly-named worksheets (starting Yr= 1959) at run time.
Am nearly there but struck a couple of glitches.

If Sheets(Yr - 1958).Name <> CStr(Yr) Then
            Sheets(Yr - 1958).Name = CStr(Yr)
End If
            Worksheets(CStr(Yr)).Activate
            With Sheets(CStr(Yr))
                .Columns("A").ColumnWidth = 80
                .Columns("B").ColumnWidth = 10
                .Columns("C").ColumnWidth = 10
                .Columns("D").ColumnWidth = 10
                .Range("A1").Select
                ActiveWindow.FreezePanes = True
            End With

When it gets to 1960 FreezePanes has divided the sheet into 4 quarters at row 19.
And I need to set the format on Cols C and D to the same as 1959 (which I did manually).
What might be a good way to sort those 2 problems? Thanks.
PS I may need to add new sheets too but haven't got that far yet.