A better working function...

Function Get_AutoCalcCbar_Mode&()
Dim ctl As CommandBarControl
For Each ctl In Application.CommandBars("AutoCalculate").Controls
If ctl.State = msoButtonDown Then
Get_AutoCalcCbar_Mode = ctl.Index: Exit Function
End If
Next
End Function

...which wraps the exit inside the If construct so it doesn't execute
unconditionally!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion