excel filter not working on column

Sub Prova Dim ppt As PowerPointApplication Dim pres As PowerPointPresentation Dim sl As PowerPointSlide Dim sh As PowerPointShape…