Change pattern based on cell value (Multiple conditions)

As per attached excel file, I want 4 pattern condition to run automatically when text inside cell C6 changed.

http://www.excelforum.com/attachment...1&d=1462856509

Code 1 have so far

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("TEST").Range("C6").Value = "Quarterly" Then
Call Change_Pattern_Quarterly
End If
End Sub
'Monthly
'Bimonthly
'Quarterly
'Weekly

Sub Change_Pattern_Monthly()
If Range("C6").Value = "Monthly" Then
    With Range("E10:P32")
        With .Interior
             .Pattern = xlPatternLightUp
        End With
    End With
End If
End Sub

Sub Change_Pattern_Bimonthly()
If Range("C6").Value = "Bimonthly" Then
    With Range("E10:P32,B12:D12,B16:D16,B20:D20,B24:D24,B28:D28,B32:D32")
        With .Interior
             .Pattern = xlPatternLightUp
        End With
    End With
End If
End Sub

Sub Change_Pattern_Quarterly()
If Range("C6").Value = "Quarterly" Then
    With Range("E10:P32,B12:D20,B24:D32")
        With .Interior
             .Pattern = xlPatternLightUp
        End With
    End With
End If
End Sub

Sub Change_Pattern_Weekly()
If Range("C6").Value = "Weekly" Then
    With Range("A10:P32")
        With .Interior
             .Pattern = xlPatternNone
        End With
    End With
End If
End Sub