The following code...
Dim Formula As String
Dim Output As String
Formula = "IF(ISBLANK(VLOOKUP(D3, SCALES!N:P, 2, FALSE)), CONCATENATE(""PY &q
The fact is that you've run up against a limitation in Excel--the Evaluate method only takes strings up to 255 characters. You have a few options: