How to re-title my code????

Hi,

Can anyone advise me how I re-name this code to include the specific worksheet - "20 DIGIT GENERATOR"

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Range("Y6").Value = "YES" Then
       Range("X8").Value = Range("X8").Value & ";lftregh.hotmail.com"
    Else
        Range("X8").ClearContents
    End If
    Application.EnableEvents = True
End Sub

Many Thanks