ok, here you go.......
worked for me...
xxxxxxxxxxxxxxxx
Option Explicit

Sub sortrow()
Dim MyRng As Range
Dim row As Range
Dim wks As Worksheet
Dim Sheet1 As Worksheet

Set Sheet1 = ActiveWorkbook.Worksheets(1)
Set MyRng = Sheet1.Range("DW2:FR2000")

Sheet1.Range("DW2").Select
For Each row In MyRng.Rows
On Error Resume Next
Selection.Sort Key1:=Range("DW2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
ActiveCell.Offset(1, 0).Select
Next row
End Sub
xxxxxxxxxxxxxxxxxxxx
you have to copy & paste this code into a module.
hope it works for you!
susan




vincent wrote:
Hi folks

I use macros using the record feature of Excel but dont know vis basic.
I think i need some kind of simple for-loop to systematically go row
by row and sort my columns in ascending order.

It would look something like this.

For Row = 1 to 2000, Step 1
Sort Row Code (see below cutout of actual code for doing just one
row)
Next


I dont know how to write this code to make it increment row by row.
Any help is greatly appreciated!

Vincent

Range("DW2:FR2").Select

Selection.Sort Key1:=Range("DW2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal