How to conditionally format Font Typeface?

Hello All,

This is my first thread posted, but have used the site as a great resource many times before.

My Problem: How to conditionally change the font name (typeface) based on the value in the cell.

Partial Solution: I have used the Worksheet_Calculate Event to successfully change the fontname as follows. It works but negates any 'undo' function available to the user.

Private Sub Worksheet_Calculate()
    
    Dim Error_Cell As Range
    
    For Each Error_Cell In Range("E21:E30")
    
        If Error_Cell.Value = "@" Then
            Error_Cell.Font.Name = "Webdings"
        ElseIf Error_Cell.Value = "P" Then
            Error_Cell.Font.Name = "Wingdings"
        Else
            Error_Cell.Font.Name = "Wingdings 2"
        End If
    
    Next Error_Cell

End Sub

My Question: Is there a neater way that conditionally changes the font name that also retains the undo functionality for the user?

All help is greatly appreciated!

GB.