Macro to sort Ascending,identify duplicates& highlight yellow

[hardlife]

Sub SortAndMarkDuplicatesInColumnA()

Columns("A:A").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Columns("A:A").Select
'Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF(A:A,A1)>1" 'for our country Czech Republic use "=COUNTIF(A:A;A1)>1"
Selection.FormatConditions(1).Interior.ColorIndex = 27

End Sub

GOOD LUCK AND GOOD NIGHT

Pavel Humenuk