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....
--
Mark

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
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Mark" <(E-Mail Removed)> wrote in message
news:F745142B-06A0-47F6-BA26-(E-Mail Removed)...
>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....
> --
> Mark

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.
--
Mark


"Jon Peltier" wrote:

> 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
> -------
> Jon Peltier, Microsoft Excel MVP
> Tutorials and Custom Solutions
> http://PeltierTech.com
> _______
>
>
> "Mark" <(E-Mail Removed)> wrote in message
> news:F745142B-06A0-47F6-BA26-(E-Mail Removed)...
> >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....
> > --
> > Mark
>
>
>