Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

    Select Case Target.Range.Value
    
        Case "Export_Charts"
        
            Dim s_SubFolder As String
            s_SubFolder = VBA.Format(Now(), "yyyymmdd_hhmmss")
            Dim s_prefix As String
            s_prefix = ""
            Dim s_suffix As String
            s_suffix = ""
            
            ' Expand all, else chart exported is not visible
            Me.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
            
            Call Worksheet_ChartObjects_ExportAll(Me, "png", s_SubFolder, s_prefix, s_suffix)
        
        Case Else
            ' Nothing
            
    End Select

End Sub