Find and replace selection of values with one value

Hi all,
Currently I've got the following code to:
Set the "progproject" named range to "1level" from any of the other 5 possible values
Set the a lookup value to look in column U from either V-Z. (I had to put in a correction as it was changing the actual Vlookup function).

This is then repeated for changing it to progproject2 to progproject6 and column V to Z - a lot of code!

Is there any way I can vba it to replace a selection of different values with a defined replacement value?

Cheers

Luke

Code:

Sub classproject1()

Sheets("Class Analysis").Range("B:P").Replace What:="progproject2level", Replacement:="progproject1level"

Sheets("Class Analysis").Range("B:P").Replace What:="progproject3level", Replacement:="progproject1level"

Sheets("Class Analysis").Range("B:P").Replace What:="progproject4level", Replacement:="progproject1level"

Sheets("Class Analysis").Range("B:P").Replace What:="progproject5level", Replacement:="progproject1level"

Sheets("Class Analysis").Range("B:P").Replace What:="progproject6level", Replacement:="progproject1level"

Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(V", Replacement:="IF(U"

Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(W", Replacement:="IF(U"

Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(X", Replacement:="IF(U"

Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(Y", Replacement:="IF(U"

Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(Z", Replacement:="IF(U"

Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(ULOOKUP", Replacement:="IF(VLOOKUP"

End Sub