try this to sort EACH column individually. Is that what you want?

Sub SortEachColumn()
lc = Cells(1, "iv").End(xlToLeft).Column
For i = 1 To lc
lr = Cells(Rows.Count, i).End(xlUp).Row
Range(Cells(2, i), Cells(lr, i)).Sort key1:=Cells(2, i), Order1:=xlAscending
Next i
End Sub


--
Don Guillett
SalesAid Software

"Jeff Garrett" wrote in message
...
Sub Macro1()
Dim varColumn As String
Dim varNo As String
For varColumn = "A" To "IV"
varNo = varColumn & 1
Range([varNo]).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range(ActiveCell, ActiveCell.End(xlUp)).Select,
Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next varColumn
End Sub


Basically, I want to go from Cell B1 to Cell IV1, and call this macro to
sort the column that is currently selected descendingly. It will be all
integers, some non-entries representing a 0. The whole reason to do a
macro
is because there is like 200 entries in the worksheet.

Any and all suggestions are welcome.