Snasui Excel Forum

Code: Select all

Sub savechart1()

 Dim wk As Variant
    Set wk = Sheets("Monthly Performance").Range("$A$12")
    If MsgBox("Save chart : Zen Approval status " & wk, vbInformation + vbOKCancel) = vbOK Then
   Sheets("Monthly Performance").ChartObjects("Approval status") _
.Chart.Export _
Filename:="ECR-DCN Approval status" & wk, filtername:="JPG"
   
     End If
     
End Sub