Hi,

I prepared a function for Sorting a Data. its working in Excel 2003,
but not working in Excel 2000, I dont know why.

The Error messge is appearing (Compile Error, Variable not Defined.)


Sub SortBy_Company()

Sheets("Data").Select
Range("B7:I2000").Select

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

Range("B6").Activate

End Sub

please help me out.

Regards

Shahzad