Hi All

Newbie here ... although I've been lurking for a while now. I have a macro that I'm using to identify columns of demographic code and then replace the codes with meaningful labels, for example, "find the education level column, select it and change all the 600s to No College, all the 700s to Graduate Degree, etc."

I've got a working version of this, but now I'm trying to do the same thing for a sequential set of values, e.g. "change all values 600<x<700 to 4 Year College". I can do it value by value, but I'm looking for a more elegant way than what I have here:

    Selection.Replace What:="790", Replacement:="No College", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:="791", Replacement:="No College", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:="792", Replacement:="No College", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:="793", Replacement:="No College", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
Any help you can lend is much appreciated!