Reply to thread

Message: [QUOTE="Imran J Khan, post: 6941004"] Need help. I am trying to sort the data on an Excel worksheet created by MS Access but the following code will not work. The code is otherwise well tried and tested. Without line to sort the columns it works well. I need to be able to sort the worksheet, and ColumnSort line I am using is tested in Excel and works as desired. In Access though I get an Error 1004, asking to use single quotes when using the equal sign. I don't know what to do. Imran Public Sub createWksSort(strQuery As String, strWksName As String, strWhere() As String, strHeader() As String, strFormat() As String, strParms() As String, blnParms As Boolean) Dim intI As Integer Dim intColumns As Integer Dim rsT As DAO.Recordset Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim lngRecCount As Long Dim blnAll As Boolean Dim strSql As String Dim strCell As String Dim strPage As String Dim qdf As QueryDef Dim recArray As Variant Dim fldCount As Integer Dim iCol As Integer Dim iRow As Integer On Error GoTo fErr intColumns = UBound(strHeader) - 1 Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add ' Create a new workbook xlApp.DisplayAlerts = False xlApp.DisplayAlerts = True ' Capture reference to first worksheet xlBook.Worksheets("Sheet1").Activate Set xlSheet = xlBook.ActiveSheet xlSheet.Name = strWksName With xlSheet .Cells.Font.Name = "Arial" .Cells.Font.Size = 10 'WHOLE BUNCH OF CODE HERE WORKS WELL. End With 'Sort Columns; this code works in Excel but not in Access xlSheet.Columns("A:L").Sort key1:=Columns("C:C"), Order1:=xlAscending, Header:=xlGuess ', Key2:=Columns("D:D"), order2:=xlAscending, Key3:=Columns("A:A"), order3:=xlAscending, Header:=xlGuess xlBook.Worksheets(strWksName).Activate xlApp.Visible = True fExit: On Error Resume Next Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing Exit Sub End Sub [/QUOTE]

Verification