Code not working in Excel 11

[Guest]

I have the following snippet of code which when run in Excel 10 works fine,
but for some reason doesn't work in Excel 11. Can anyone offer any solutions
for this please?

I have a form which users input a number as a string lets says it's "1150"

This is the part that doesn't work - it doesn't activate the respective
workbook

Workbooks(AName & " - (1000-1999)").Activate


SNIPPET

AName = Left(ActiveWorkbook.Name, 14)

ControlBook = ActiveWorkbook.Name

On Error GoTo NewBadge

If IsNumeric(BadgeNumber) Then
lBadge = CLng(BadgeNumber)
Select Case lBadge
Case 1 To 1000

Workbooks(AName & " - (1000-1999)").Activate

' this on error causes a fail to find to go to create a new record
Worksheets(BadgeNumber).Activate
Application.StatusBar = "You are now editing " + BadgeNumber + "'s "
+ AName + " record...."

etc....

 

[Jon Peltier]

There's no extension suffix on the workbook name (.xls). Did your Windows
settings change? Default in Windows (a stupid choice if you ask me and
thousands of others) is not to show the extension for known file types. If
the setting changes, your workbook name is insufficient to find the workbook
you want. What's the error message, by the way?

- Jon

 

[Guest]

Many thanks, I'll try it out.

No error message just puts a new sheet with the details in the wrong
workbook for that particular number.