Excel VBA Formatconditions Positivo

MyRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
	Formula1:="=0"
VasteMonde