Хех.. плохо..
Спасибо за ответ!

Пока без карандашика) Пример приложил.
Я Уже думаю, лучше мне все копировать в файл где я буду применять расширенные фильтры с добавлением кода для зачеркнутого текста..

Кода нет, есть только примеры вроде этого..

<Function IsStriked(rng As Range) As Boolean
   If rng.Font.Strikethrough Then IsStriked = True
End Function>

<Sub Macro1()
'
' Macro1 Macro
'
'
   With Selection.Font
       .Name = "Calibri"
       .FontStyle = "Regular"
       .Size = 11
       .Strikethrough = True
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ThemeColor = xlThemeColorLight1
       .TintAndShade = 0
       .ThemeFont = xlThemeFontMinor
   End With
End Sub>