| http://www.w3.org/ns/prov#value | - Put the following in a module:Sub BeforeAutoFilter()ActiveSheet.UnprotectActiveSheet.Range(ActiveSheet.Shapes(Application.Caller).Name).SelectApplication.SendKeys %{DOWN}Application.OnTime Now, AfterAutoFilterEnd SubSub AfterAutoFilter()ActiveSheet.ProtectEnd SubAfter, insert a shape over an autofilter icon, rename to the cell address e.g. A1 and make transparent.
|
