Hello all,

I wrote a Sub to format all charts equally once selected and running
the procedu


Sub ChartMods()

If ActiveChart Is Nothing Then
MsgBox "No chart selected"
Exit Sub
End If
With ActiveChart
.ChartArea.Font.Name = "Arial"
.ChartArea.Font.FontStyle = "Regular"
.ChartArea.Font.Size = 16
End With

End Sub

Then I made the following call:

Private Sub CommandButton1_Click()
Call ChartMods

End Sub

But the problem is: when I select the chart and then click the button,
the chart gets deselected and the button becomes active in stead of
the chart. What Am I Overlooking?

thanks in advance.

Fries

Set the changefocusonclick property of the command button to false.

--
Regards,
Tom Ogilvy

"Fries" wrote in message
om...
Hello all,

I wrote a Sub to format all charts equally once selected and running
the procedu


Sub ChartMods()

If ActiveChart Is Nothing Then
MsgBox "No chart selected"
Exit Sub
End If
With ActiveChart
.ChartArea.Font.Name = "Arial"
.ChartArea.Font.FontStyle = "Regular"
.ChartArea.Font.Size = 16
End With

End Sub

Then I made the following call:

Private Sub CommandButton1_Click()
Call ChartMods

End Sub

But the problem is: when I select the chart and then click the button,
the chart gets deselected and the button becomes active in stead of
the chart. What Am I Overlooking?

thanks in advance.

Fries