엑셀 vba 셀 체인지

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If ActiveCell.Column = 1 Then

        Range("M" & ActiveCell.Row).Value = "F"

    End If

    If ActiveCell.Column = 13 Then

        Range("M" & ActiveCell.Row).Value = ""

    End If

End Sub