Here is some code for you to try. You jsut need to get the workbook and sheet
names added in

Sub OpenToSheet()
Dim wbk As Workbook

Workbooks.Open ("C:\ThisBook.xls")
Set wbk = ActiveWorkbook
wbk.Sheets("Sheet1").Select
MsgBox "Here we are"
ThisWorkbook.Activate
MsgBox "And now we are back..."
End Sub
--
HTH...

Jim Thomlinson


"Benjamin" wrote:

Is there a way to open a specific worksheet based on the contents of a cell
in the source worksheet..

Workbooks.Open Filename:="C:\filename.xls#(worksheet name in A1)!A1"

TIA

Ben