Sub ConvertDates()
  Selection.NumberFormat = "m/d/yyyy"
  Selection.Value = Selection.Value
End Sub

    ActiveWorkbook.CustomViews.Add ViewName:="TempView", RowColSettings:=True
    ' -------------------------------------------------
    ' Отключаем фильтр и выполняем необходимые действия
    ' -------------------------------------------------
    ActiveWorkbook.CustomViews("TempView").Show

<customSheetView guid="{E147A63F-9B5A-438B-B940-526F71467680}" filter="1" showAutoFilter="1" topLeftCell="A4">
<pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" footer="0.3"/>
<autoFilter ref="A1:B5">
<filterColumn colId="0">
<customFilters>
<customFilter operator="greaterThan" val="2"/>
</customFilters>
</filterColumn>
</autoFilter>
</customSheetView

<numFmts count="1">
<numFmt numFmtId="168" formatCode="[Color10]#,##0;[Red]\(#,##0\);"/>
</numFmts>

[Цвет10]# ##0;[Красный](# ##0);

Sub Test()
  Selection.FormulaLocal = Selection.FormulaLocal
End Sub

Sub Test()
  Selection.Replace " ", "", xlPart
  Selection.Value = Selection.Value
End Sub