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