Dear Experts:

below code snippet lets user change the font size of a chart's data
labels by means of an Input Box.

I would like the inputbox part of the macro expanded in the following
way:

.... only numeric values between 1 and 10 are allowed (ie. Font size of
the data labels)
.... If above condition is not met the inputbox dialog is to re-appear.
In the current state the macro exits on non-numeric values.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas



DefineFontSize = InputBox("Specifiy the new Font Size of the Data
Labels!")
If Not IsNumeric(DefineFontSize) Then
MsgBox ("Only numeric values are allowed!")
Exit Sub
End If
If DefineFontSize = "" Then
Exit Sub
End If