Assuming your data starts in A1:

Sub SortHorizontal()
For j = 1 To Range("a1").End(xlDown).Row
Range(Cells(j, 2), Cells(j, 5)).Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Next j
End Sub

"Todd" wrote in message ...
I have a sheet with the following

column a = 3 digit zip

column b, c, d, & contain a text territory designation

a b c d e
Example: 917 SE/PR W7 W8 W9

I need the columns b to e to be sorted left to right
alphabetically.

so "701 SE8 SE7 E7"

would look like like

701 E7 SE7 SE8

the thing is that you may only have somethin in B or B&C
and then the rest blank.

We are leaving the column A thing where it is.

Thanks for your time.

Todd