Dear all,


I have the following values in column B:
CITG
WF
JPM

I would like to translate the codes into meaning names in column C such as:
(desired output)
CITG --> Citi
W F--> fargo
JPM --> jp.morgan

I am using the following code below, however the code below is not printing anything in the next column. 

Sub Convert_Name()
Dim Rng As Range, Dn As Range
Set Rng = Range(Range("B2"), Range("B" & Rows.Count).End(xlUp))
Columns("C:C").ClearContents
For Each Dn In Rng
    Select Case UCase(Left(Dn, 1))
        Case "CITG": Dn.Offset(, 1) = "citi bank"
        Case "JPM": Dn.Offset(, 1) = "J.P.Morgan"
    End Select
Next Dn
End Sub
Any help would be very much appreciated.

Thank you for your time and help.