This is SLOW, any suggestions?
For Lookin = 2 To LR
LookRange = Sheets("Query").Range("E" & Lookin)
InRange = Sheets("Character Values").Range("A:B")
Answer1 = Application.WorksheetFunction.VLookup(Sheets("Query").Range("E" & Lookin), Sheets("Character Values").Range("A:B"), 2, False)
Sheets("Query").Range("G" & Lookin).Value = Answer1
Next Lookin
For Lookin = 2 To LR
LookRange = Sheets("Query").Range("E" & Lookin)
InRange = Sheets("Character Values").Range("A:B")
Answer1 = Application.WorksheetFunction.VLookup(Sheets("Query").Range("E" & Lookin), Sheets("Character Values").Range("A:B"), 2, False)
Sheets("Query").Range("G" & Lookin).Value = Answer1
Next Lookin