Word Macro to Open Excel file and activate a specific worksheet within that file

[kalil]

I tried this code which worked as far as opening the excel file but failed to activate the specific worksheet

Sub OpenExcelFrom Word()
Dim oExcel As Excel.Application
Dim oWB As Workbook
Dim oWS As Worksheet
Set oExcel = New Excel.Application
Set oWB = oExcel.Workbooks.Open("C:\Users\aacce\Dropbox\Documents\1-WW6\PORT-full-2.XLS")
Set oWS = oExcel.Worksheets("Cost").activate
oExcel.Visible = True
End Sub

 

[RoryA]

Replace this:

Set oWS = oExcel.Worksheets("Cost").activate

with this:

oWb.Worksheets("Cost").activate

 

[kalil]

worked like a charm
Thanks very much Rory, u r an absolute legend