I cannot edit or delete the progress bar?

Hello,

I follow the link https://ccm.net/faq/937-insert-progress-bar-into-powerpoint-presentation to insert a progress bar in my presentation.
I want to edit but the macro disappeared. I try to delete it by inserting another macro, in which I change as follows:

Replace:
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - 12, _
X * .PageSetup.SlideWidth / .Slides.Count, 12)
With:
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)

But nothing happens, the old progress bar is fixed!

How can I do now?

Thanks a lot.