Buchstaben eintragen

mit diesem Makro trage ich in Zellen die Hintergrungfarbe ein.
nun möchte ich das in dieser Zelle auch gleich ein E mit eingetragen wird.
Wie kann ich das machen.

Sub farbe_gruen()
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = 4

End With
End Sub

Werner