Hi Mohan,

Welcome to ExcelFox !!!

may be..

Code:
Dim chtSelected As Chart
    
    On Error Resume Next
    Set chtSelected = ActiveChart
    On Error GoTo 0
    If chtSelected Is Nothing Then
        MsgBox "No chart selected", vbInformation
    Else
        MsgBox chtSelected.Name
    End If