Hi C,

This part of my code should be on one line:

If StrComp(ActiveCell.Value, ActiveCell.Offset(-1, 0).Value,
vbTextCompare) < 0 Then

Optionally you can use:

If StrComp(ActiveCell.Value, _
ActiveCell.Offset(-1, 0).Value, _
vbTextCompare) < 0 Then


HTH,

Wouter