Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Dim rs as dao.Recordset Dim xl as object dim wbk as object dim sht as object dim rs as object set rs = currentdb.querydefs("myQueryName").openrecordset set xl = createobject("Excel.Application") set wbk = xl.workbooks.Add set sht = wbk.sheets(1) 'Write the column headers For intLoop = 1 to rs.fields.count sht.cells(1, intLoop).Value = rs.fields(intloop-1).Name Next 'Highlight the column headers and copy the header column sht.Range("B1").Select sht.Range(Selection, Selection.End(xlToRight)).Select 'this is the line that raises the error set rng = Selection 'this is used later in the code with rng.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.14996795556505 .PatternTintAndShade = 0 End With sht.Range("A2").CopyFromRecordset rs if NOT (rs is nothing) then rs.close set rs = nothing end if '******************* 'whole bunch of additional formatting functions here '******************* if NOT (rng is Nothing) then set rng = nothing if NOT (sht is nothing) then set sht = nothing if NOT (wbk is nothing) then set wbk = nothing if NOT (xl is nothing) then set xl = nothing