Try these, change as needed. Make sure you add reference to excel
Dim swApp As SldWorks.SldWorks
Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set swApp = Application.SldWorks
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlWorkbook = xlApp.Workbooks.Open("C:\Users\DEEPAK\Desktop\test.xlsx") 'change file name
Set xlSheet = xlApp.Worksheets("Sheet1") 'change sheet name
'Add codes for sorting
As always with your expert tutelage, i was able to work through what i was trying to do.... I had it, but didn't realize/remember that excel has a 31 character limit on "sheet" names....to me a while to catch it.
Glad the codes were helpful. May be you can post the full macro as it might be helpful to someone.