Highlight Top 10 Macro issue

[Fester675]

Can anyone help with this piece of code please - keep getting Compile error: Sub or Function not defined

Sub TopTen()


'Select range to Highlight Top 10 values


Selection.FormatConditions.AddTop10
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With SelectionWithFormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 10
.Percent = False
End With
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False


End Sub

 

[BarryL]

should this :With SelectionWithFormatConditions(1)

be : With Selection.FormatConditions(1) ?

 

[Fester675]

Thank you!

 

[BarryL]

You're welcome.