Error Handling 1

[JohnAcc]

Hi There,

I have the following sub that is causing me problems - when an error occurs it behaves as expected but when an error doesn't occur it still triggers the error handler - Any ideas ????


Private Sub btnConfirm_Click()
On Error GoTo ErrHandler
ActiveSheet.ChartObjects("Chart 1&quot.Activate
With ActiveChart.Axes(xlValue, xlSecondary)
.MinimumScale = fmAxisBox.Min.Value
.MaximumScale = fmAxisBox.Max.Value
End With
fmAxisBox.Min.Value = ""
fmAxisBox.Max.Value = ""
Sheets("Charts&quot.Axis2_Scale.Value = False
fmAxisBox.Hide
Close_ActiveChart
ErrHandler:
fmAxisBox.Min.Value = ""
fmAxisBox.Max.Value = ""
fmAxisBox.Hide
MsgBox " Unable to set the Second Axis Parameters Specified", vbCritical, "Error on Secondary Axis"
Sheets("Charts&quot.Axis2_Scale.Value = False
Close_ActiveChart
On Error GoTo 0
End Sub

 

[xlbo]

After this line:
Close_ActiveChart

have
Exit sub

The error handler is only really a goto line so unless you jump the error handler, it will run through it anyway

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244