Descriptive Stats

["Walter Lake" <wlake@xxxxxxxxx>]

Thanks for your email

Coding the sub for "Descriptive Stats" and "Histogram" for Tools --> Data
Analysis in XL is straight forward. The Analysis Toolpak.xla is protected so
getting the arguments straight can be tricky.

data input range = B2:B27
output range = D2
data in Columns = C
etc.
Note: that you can't just use "B2:B27"

Sub DescriptiveStats1()

    Windows("YourWorkBook.xls").Activate
     Application.Run "ATPVBAEN.XLA!Descr", _
     ActiveSheet.Range("B2:B27"), _
     ActiveSheet.Range("D2"), _
     "C", False, True, , , 95

End Sub

Let me know if you need more info.

Stick everything into the looping program
Turn off screen updating once it's debugged

Best regards

Walter