Can I ask why you are doing it in VBA rather than having a standalone Query?