Untested:

```
For n = BaseWks.UsedRange.Row To lastrow
BaseWks.Cells(n, "A").Formula = "= VLookup(" & Range(n, "C").Value & ", 'GL Summary'!Ranges, 2, False))"
Next n
```

Kyle