This line:
Sheets("Sheet2").[A1].CopyFromRecordset recordset
is duplicating the basics of the With block after it. Either use it or the With block, but not both.
Also use variable names that don't match the typenames, it's just asking for hard to find problems.
Other than that I would suspect either the Stored Procedure, or maybe too much data is being pulled.
Lance Roberts
2010-02-07 08:17:38