I need help with VBA

sf49ers19238597 

Private Sub CommandButton1_Click()
    Dim w As Long
    Dim sh As Worksheet
    Dim r As Long
    Dim c As String
    For w = 1 To 18
        Set sh = Worksheets(CStr(w))
        For r = 2 To 7
            c = Chr(66 + 3 * ((w - 1) Mod 6))
            sh.Range("K" & r).Formula = "=IF(INDIRECT(""'BYE WEEKS'!B" & r & _
                """)<>"""",INDIRECT(""'BYE WEEKS'!B" & r & """),"""")"
        Next r
    Next w
End Sub