Instead of using For Each c In
Selection.SpecialCells(xlCellTypeFormulas)
Use: For Each c In
Application.intercept(Selection.SpecialCells(xlCel lTypeFormulas),Selection.SpecialCells(xlCellTypeVi sible))


I havent tested this code but it should work bar some sytax error

Joseph Mc Daid