Can any one help?
If you type the following code in a new workbook and execute, it throws runtime error 9 "subscript out of range", while accessing the sheets collection. This was not there in previous versions.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tmpWB As Workbook
Set tmpWB = Workbooks.Open("C:\Program Files\General Electric\DFSS Process\Databases9.14.98\208.Face-Centered_CCD.table", 0, True, 2)
Dim tmpSheet As New Worksheet
Dim s As String
s = Left("208.Face-Centered_CCD.table", 31)
MsgBox s
Set tmpSheet = Sheets(Left("208.Face-Centered_CCD.table", 31))
MsgBox tmpSheet.Name

End Sub

Laks,
This works for me, so I would assume your WB does not have a suitably named
worksheet.
Unless you don't really mean that the name of the sheet is the same as your
WB.

NickHK

"Laks" wrote in message
...
Can any one help?
If you type the following code in a new workbook and execute, it throws
runtime error 9 "subscript out of range", while accessing the sheets
collection. This was not there in previous versions.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tmpWB As Workbook
Set tmpWB = Workbooks.Open("C:\Program Files\General Electric\DFSS
Process\Databases9.14.98\208.Face-Centered_CCD.table", 0, True, 2)
Dim tmpSheet As New Worksheet
Dim s As String
s = Left("208.Face-Centered_CCD.table", 31)
MsgBox s
Set tmpSheet = Sheets(Left("208.Face-Centered_CCD.table", 31))
MsgBox tmpSheet.Name

End Sub