AlexanderBB
Well-known Member
- Joined
- Jul 1, 2009
- Messages
- 2,074
- Office Version
- 2019
- 2010
- Platform
- Windows
I'm creating and populating yearly-named worksheets (starting Yr= 1959) at run time.
Am nearly there but struck a couple of glitches.
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.
Am nearly there but struck a couple of glitches.
VBA Code:
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
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.