2 Private Sub

Hej
Er det muligt at have 2 Private Sub på en fane?'
Jeg har denne og den virker perfekt
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call Materiale1
    End If
    ActiveCell.Select
End Sub

Jeg vil gerne have en mere, der skal kikke i C1 og se sådan ud.
De skal ikke bruges sammen, men hver for sig

Private Sub Worksheet_ChangeS(ByVal Target As Range)
    If Target.Address = "$C$1" Then
        Call Materiale2
    End If
    ActiveCell.Select
End Sub