I have below code that deletes all pictures but the one that is called "PNG".
Option Explicit Sub test() Dim pic As Picture For Each pic In ActiveSheet.Pictures If pic.Name <> "PNG" Then pic.Delete End If Next pic End Sub
What I want it to replace the work "png" with the current active workbook name.
Can one of you wonderful people modify the code?
thanks for your help