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

I believe that the DataOption1 parameter doesn't exist in Excel 2000. When
code is going to be used in different versions of Excel, you must code for
the earliest version of Excel to be supported.


--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)




"Shazi" wrote in message
...
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

On Jul 24, 9:04*pm, "Chip Pearson" wrote:
I believe that the DataOption1 parameter doesn't exist in Excel 2000. When
code is going to be used in different versions of Excel, you must code for
the earliest version of Excel to be supported.

--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
* * Excel Product Group
Pearson Software Consulting, LLCwww.cpearson.com
(email on web site)

"Shazi" wrote in message

...



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- Hide quoted text -

- Show quoted text -

Hi,

Thank you for your support, I will change the code as of Excel 2000.

Regards.

Shahzad