Set rng = Range("A4:H15")
rng.Sort Key1:=rng.Cells(1,1),Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
rng.cells.Interior.Colorindex = xlColorindexNone
For each cell in rng
If cell.Value = Application.Small(rng,1) Or cell.Value =
Application.Small(rng,2) Or _
cell.Value = Application.Small(rng,3) Then
cell.Interior.Colorindex = 10
ElseIf cell.Value = Application.Small(rng,4)Then
cell.Interior.Colorindex = 3
End If
Next cell

End Sub

--
HTH

Bob Phillips

"TD" wrote in message
...
I am attempting to record a macro similar to the one below, however at the
end of the data/sort I want to include cell formatting so that the top
three
automatically appear in green, and the fourth automatically appears in
red.
Is this possible?

Range("A4:H15").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub