Letter prefix to numbers

[adeleex]

Hi,

I found this code from a previous post from a few years back which allows you to add a prefix to numbers you enter, does anyone know how to amend it so you can delete the ‘XX’ as it remains 'stuck' even after removing the number?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Application.EnableEvents = False

For Each cell In Target
    If Not Intersect(cell, Range("A:A")) Is Nothing Then _
        If IsNumeric(cell) Then cell = "XX" & cell.Value
Next cell

Application.EnableEvents = True
End Sub

Many thanks,

Adele