Отфильтровать макросом

[agregator]

Здравствуйте уважаемые программисты. Записал макрорекордером макрос, который должен отображать ячейки ( с числовым форматом, число десятичных знаков 8) со значением 0,00000000

Sub Фильтр()
    Selection.AutoFilter Field:=1, Criteria1:="0,00000000"
End Sub

Этот код не работает ни с ="0,00000000" ни =0 (с =0 вообще не работает).
Напишите пожалуйста как сделать, чтобы макрос заработал.

[kuklp]

У меня работает так:
Sub Фильтр()
Worksheets(1).AutoFilterMode = False
Selection.AutoFilter Field:=1, Criteria1:="0.00000000"
End Sub
Но у меня системный разделитель - точка.

[kuklp]

Попробуйте так:
Sub Фильтр()
[a1].AutoFilter Field:=1, Criteria1:="0.00000000"
End Sub

[agregator]

Kuklp, большое спасибо. заменил "," на "." и код заработал.
Sub Фильтр()
Selection.AutoFilter Field:=1, Criteria1:="0.00000000"
End Sub

[kuklp]

Еще замените Selection.

[agregator]

Kuklp,
Sub Фильтр()
[a1].AutoFilter Field:=1, Criteria1:="0,00000000"
End Sub
с разделителем "," не работает заменил на "." и код заработал
Sub Фильтр()
[a1].AutoFilter Field:=1, Criteria1:="0.00000000"
End Sub

[kuklp]

Дык, я так и исправил свой пост.

[agregator]

Kuklp, извиняюсь, неувидел. А, что даёт замена Selection?

[kuklp]

Выделите ячейку С5 и нажмите кнопку. Сначала с селектом, а потом с А1.
Я имел ввиду этот вариант:
Sub Фильтр()
Worksheets(1).AutoFilterMode = False
Selection.AutoFilter Field:=1, Criteria1:="0.00000000"
End Sub

[agregator]

Kuklp, у меня разницы нет Excel 2003. Ну и ладно.