Excel/VBAで条件付き書式を作ってますが、

E３セルの値が”男性”である場合、F1セルの書式を数字少数点以下なしに設定しようとしています。
マクロで実行した結果は下記です。
Sub Macro1()
'
' Macro1 Macro
'

'
Selection.NumberFormatLocal = "#,##0_ "
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E$3=""男性"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
ExecuteExcel4Macro "(2,1,""#,##0_ "")"
Selection.FormatConditions(1).StopIfTrue = False
End Sub

ExcelVBAで実行すると、ExecuteExcel4Macro でエラーが発生し、終了してしまいました。
マクロはそのまま実行できないようなんですが、
①ExecuteExcel4Macro の実行エラーをなくす方法はありあすか。もしくはExcel/VBAに変える方法はありますか。
②条件付き書式は列に対する設定は可能でしょうか。
条件付き書式の初心者ですみませんが、ご存じな方がいらっしゃいましたらご教授頂けれればと思います