It was the only workbook open in testing. It should be anumber. I tried it
with values within the acceptable ranges. It is like the application just
stopped accepting the references.

All cells referenced had correct values, and it treted them as having
incorrect values or empty cells.

Odd thing is the auditors were using the workbook fine, then it just stopped
working.

"Dave Peterson" wrote:

> What's in Application.Workbooks(1).Worksheets(1).Range("B9").Value?
>
> Are you sure workbooks(1) is the correct workbook? Maybe they have multiple
> workbooks open?
>
> Maybe someone moved worksheets around on you???
>
> You could add this line while you're debugging:
>
> msgbox _
> Application.Workbooks(1).Worksheets(1).Range("B9").address(external:=true)
>
>
>
>
>
> MortVent wrote:
> >
> > Sorry, here is the code snippet for the first section that breaks. The other
> > sections after use the same reference style.
> >
> > intTotal = Application.Workbooks(1).Worksheets(1).Range("B9").Value
> > ' check that there is a value givin for sample size
> > If intTotal = 0 Or intTotal > 200 Then
> > intMsg = MsgBox("Incorrect values entered for sample size. Please
> > enter a value between 1 and 200.", vbOKOnly, "Error: Incorrect Data")
> > Exit Sub
> > End If
> >
> > "Don Guillett" wrote:
> >
> > > As always, post your code for comments.
> > >
> > > --
> > > Don Guillett
> > > SalesAid Software
> > > donaldb@281.com
> > > "MortVent" <MortVent@discussions.microsoft.com> wrote in message
> > > news:B4FC8718-1A2E-4397-AA95-7E657B25F0DE@microsoft.com...
> > > > I had created a VBA enabled workbook for our auditors to generate random
> > > > sample numbers in the field.
> > > >
> > > > Recently two have suddenly been unable to use it. It used to work for
> > > them,
> > > > but now the project on thier computers fails to read the numbers in the
> > > cell
> > > > refrences.
> > > >
> > > > I could find nothing in the knowledge base about this problem.
> > >
> > >
> > >
>
> --
>
> Dave Peterson
>