I have made the following functing using the book but i don't know how to run that anyone please help.Regards,
Private Function chartisselected() As Boolean
Dim x As String
chartisselected = False
On Error Resume Next
x = ActiveChart.Name
If Err = 0 Then chartisselected = True
End Function
Private Function chartisselected() As Boolean
Dim x As String
chartisselected = False
On Error Resume Next
x = ActiveChart.Name
If Err = 0 Then chartisselected = True
End Function