Combine 52 VBA Codes For 52 Weeks Into 1 Code

the listbox will show week 1 to week 52 and let me choose one of the week.

Private Sub OKButton_Click()
If ListBox1.Text = "Week 26" Then Call week26
If ListBox1.Text = "Week 27" Then Call week27
Unload Me
Sheet7.Activate
End Sub

Sub week26()
With Sheet7
.AutoFilterMode = False
. Range("A1:I1"). AutoFilter.............

Since there are 52 weeks in a year, i have to type the codes for 52 times for different weeks. i don't need to type all these codes 52 times, instead one time with a loop or something else.