If WSh.Name < "Admin" and < "Server * Projection Seed Values"

First of all, this line lacks 'WSh.Name' before '< "Server *... '
Obviously this test will not perform a LIKE compare.
To solve your problem, you can do so:

If WSh.Name < "Admin" and Left(WShName, 7) < "Server " and Right(WShName,
23) < " Projection Seed Values" Then

Be attention: "Server " ends with a space, " Projection Seed Values" begins
with a space.