Option Explicit

Sub SortColumns()
Dim rng As Range
Dim col As Range

Set rng = Workbooks("Book2.xls").Worksheets("Sheet1").Column s
For Each col In rng
rng.Sort col
Next
End Sub

Change rng to whatever range you like. Perhaps, for your case,

Set rng = Workbooks("Book2.xls").Worksheets("Sheet1").Column s("A:CV")
'100 columns

There are also clever ways to select the range dynamically, or you can use
the active selection (called Selection).

--
Bob Kilmer

"Victor" wrote in message
...
I had already tried that but it only sorts the first 3
columns at the max


-----Original Message-----
perhaps you could transpose the 6cols x 100 rows to 100
cols x 6 rows, use
the columns.sort method (or some such) to sort each
column alone, then
retranspose to 6 x 100.

--
Bob Kilmer

"Victor" wrote in
message
...
I would like to sort the 6 records in each separate row
(100 total)
ascending.
Is there a built-in function to do that.

I tried to use the macro recorder to sort the rows
manually but 100 is too
tedious, I would appreciate any hints for a killer macro..

TIA


.