Runtime error with the sheet collection, which was not there in 20

[Guest]

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

 

[NickHK]

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

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)