You could use this. Put in sheet code,change column reference to your needs
Private Sub Worksheet_Change(ByVal Target As Range)
'will change letters in column B to caps when there are entered
Dim rng1 As Range, rng2 As Range, cell As Range
On Error GoTo errorhandler
Application.EnableEvents = False
If Not Intersect(Target, Columns(2)) Is Nothing Then
Set rng1 = Intersect(Target, Columns(2))
Set rng2 = Intersect(ActiveSheet.UsedRange, rng1)
For Each cell In rng2
If cell.Formula <> "" Then
cell.Formula = Format(cell.Formula, ">")
End If
Next cell
End If
errorhandler:
Application.EnableEvents = True
End Sub