If cell value changes then -VBA

[sarvadeshavyapta]

 Sub alphacode()      
          On Error Resume Next
          Range("X6") = Chr(Month(Now) + 64)
          End sub

How to add some more lines in this code which would reset range Y6 value to "000" for every change in alphabets.
Eg: This is november. X6 will be K,on december X6 will be L,This change shall cause reset of Y6

 

[MARK858]

Possibly...

Sub alphacode()
    Dim xstr As String
    On Error Resume Next
    xstr = Range("X6").Value
    Range("X6") = Chr(Month(Now) + 64)
    If Range("X6").Value <> xstr Then Range("Y6").Value = 0
    Range("Y6").NumberFormat = "000"
End Sub

 

[sarvadeshavyapta]

Excellent!! Mark858,Worked without flaws