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

"MortVent" wrote in message
...
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