Sub GetStateNames()
Dim cell As Range    
    For Each cell In Range("j:j")       
       	If cell.Value <> "" Then
            cell.Value = abc(cell.Value)	
        End If	
    Next cell	
End Sub



Function abc(cells)
Select cell
Case "AL"
abc =  "Alabama"

Case "AK"
abc =  "Alaska"

Case "AZ"
abc =  "Arizona"

Case "AR"
abc =  "Arkansas"

Case "CA"
abc =  "California"

Case "CO"
abc =  "Colorado"

Case "CT"
abc =  "Connecticut"

Case "DE"
abc =  "Delaware"

Case "FL"
abc =  "Florida"

Case "GA"
abc =  "Georgia"

Case "HI"
abc =  "Hawaii"

Case "ID"
abc =  "Idaho"

Case "IL"
abc =  "Illinois"

Case "IN"
abc =  "Indiana"

Case "IA"
abc =  "Iowa"

Case "KS"
abc =  "Kansas"

Case "KY"
abc =  "Kentucky"

Case "LA"
abc =  "Louisiana"

Case "ME"
abc =  "Maine"

Case "MD"
abc =  "Maryland"

Case "MA"
abc =  "Massachusetts"

Case "MI"
abc =  "Michigan"

Case "MS"
abc =  "Mississippi"

Case "MO"
abc =  "Missouri"

Case "MN"
abc =  "Minnesota"

Case "MT"
abc =  "Montana"

Case "NE"
abc =  "Nebraska"

Case "NV"
abc =  "Nevada"

Case "NH"
abc =  "New Hampshire"

Case "NJ"
abc =  "New Jersey"

Case "NM"
abc =  "New Mexico"

Case "NY"
abc =  "New York"

Case "NC"
abc =  "North Carolina"

Case "ND"
abc =  "North Dakota"

Case "OH"
abc =  "Ohio"

Case "OK"
abc =  "Oklahoma"

Case "OR"
abc =  "Oregon"

Case "PA"
abc =  "Pennsylvania"

Case "RI"
abc =  "Rhode Island"

Case "SC"
abc =  "South Carolina"

Case "SD"
abc =  "South Dakota"

Case "TN"
abc =  "Tennessee"

Case "TX"
abc =  "Texas"

Case "UT"
abc =  "Utah"

Case "VT"
abc =  "Vermont"

Case "VA"
abc =  "Virginia"

Case "WA"
abc =  "Washington"

Case "WV"
abc =  "West Virginia"

Case "WI"
abc =  "Wisconsin"

Case "WY"
abc =  "Wyoming"

Case else
abc =  cells
End Select
End Function