Try:
![]()
Dim H As Range, I As Range, dd As Range Set I = Range("E:E") For Each dd In I.Cells If dd.Value = "1" Then dd = "A" If dd.Value = "2" Then dd = "B" If dd.Value = "3" Then dd = "C" If dd.Value = "4" Then dd = "D" If dd.Value = "5" Then dd = "E" Next dd
Or you could use
Regards, TMS![]()
Dim H As Range, I As Range, dd As Range Set I = Range("E:E") For Each dd In I.Cells dd = Application.WorksheetFunction.Choose(dd.Value, "A", "B", "C", "D", "E") Next
Bookmarks