vba any way to make macro smaller

[montecarlo2012]

Hi.
I did this macro, I would like to know if there are a way to write this with less lines

sub highL_Dup()
Range("R2:R37").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($B$26:$G$26,R2)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Color = 65535
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

 

[montecarlo2012]

Thank you Mr. Fluff for your advice.

 

[Fluff]

My pleasure