Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select


It works fine on my machine. However, when I e-mail this file to other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn

Are you all using the same version of excel?

DataOption1:=xlSortNormal
was added in xl2002.

If your users use earlier versions, remove that parm.

Shawn wrote:

Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select

It works fine on my machine. However, when I e-mail this file to other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn

--

Dave Peterson

If I remove: , _
DataOption1:=xlSortNormal
it will work in any version?

--
Thanks
Shawn


"Dave Peterson" wrote:

Are you all using the same version of excel?

DataOption1:=xlSortNormal
was added in xl2002.

If your users use earlier versions, remove that parm.

Shawn wrote:

Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select

It works fine on my machine. However, when I e-mail this file to other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn

--

Dave Peterson

That's the default for xl2002+, so it should.

Shawn wrote:

If I remove: , _
DataOption1:=xlSortNormal
it will work in any version?

--
Thanks
Shawn

"Dave Peterson" wrote:

Are you all using the same version of excel?

DataOption1:=xlSortNormal
was added in xl2002.

If your users use earlier versions, remove that parm.

Shawn wrote:

Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select

It works fine on my machine. However, when I e-mail this file to other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn

--

Dave Peterson


--

Dave Peterson

Hi Shawn,

If your user has abn earlier version (xl2k?) then:

DataOption1:=xlSortNormal

would cause a problem as this argument would not be recognised.

When writing an application, it is important to develop using oldest version
of Excel likely to be encountered.


---
Regards,
Norman



"Shawn" wrote in message
...
Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select


It works fine on my machine. However, when I e-mail this file to other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn

How should I write that code?

There error is: "Compile error, variable not defined"
--
Thanks
Shawn


"Norman Jones" wrote:

Hi Shawn,

If your user has abn earlier version (xl2k?) then:

DataOption1:=xlSortNormal

would cause a problem as this argument would not be recognised.

When writing an application, it is important to develop using oldest version
of Excel likely to be encountered.


---
Regards,
Norman



"Shawn" wrote in message
...
Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select


It works fine on my machine. However, when I e-mail this file to other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn

Hi Shawn,

As suggested By Dave in his adjacent post, delete the contentious parameter:

Selection.Sort Key1:=Range("G7"), _
Order1:=xlDescending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom

---
Regards,
Norman



"Shawn" wrote in message
...
How should I write that code?

There error is: "Compile error, variable not defined"
--
Thanks
Shawn


"Norman Jones" wrote:

Hi Shawn,

If your user has abn earlier version (xl2k?) then:

DataOption1:=xlSortNormal

would cause a problem as this argument would not be recognised.

When writing an application, it is important to develop using oldest
version
of Excel likely to be encountered.


---
Regards,
Norman



"Shawn" wrote in message
...
Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select


It works fine on my machine. However, when I e-mail this file to other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn

Is that causing, "compile error, variable not defined?"
--
Thanks
Shawn


"Norman Jones" wrote:

Hi Shawn,

As suggested By Dave in his adjacent post, delete the contentious parameter:

Selection.Sort Key1:=Range("G7"), _
Order1:=xlDescending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom

---
Regards,
Norman



"Shawn" wrote in message
...
How should I write that code?

There error is: "Compile error, variable not defined"
--
Thanks
Shawn


"Norman Jones" wrote:

Hi Shawn,

If your user has abn earlier version (xl2k?) then:

DataOption1:=xlSortNormal

would cause a problem as this argument would not be recognised.

When writing an application, it is important to develop using oldest
version
of Excel likely to be encountered.


---
Regards,
Norman



"Shawn" wrote in message
...
Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select


It works fine on my machine. However, when I e-mail this file to other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn

Hi Shawn,

Yes - in versions prior to xl2002.

---
Regards,
Norman



"Shawn" wrote in message
...
Is that causing, "compile error, variable not defined?"
--
Thanks
Shawn


"Norman Jones" wrote:

Hi Shawn,

As suggested By Dave in his adjacent post, delete the contentious
parameter:

Selection.Sort Key1:=Range("G7"), _
Order1:=xlDescending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom

---
Regards,
Norman



"Shawn" wrote in message
...
How should I write that code?

There error is: "Compile error, variable not defined"
--
Thanks
Shawn


"Norman Jones" wrote:

Hi Shawn,

If your user has abn earlier version (xl2k?) then:

DataOption1:=xlSortNormal

would cause a problem as this argument would not be recognised.

When writing an application, it is important to develop using oldest
version
of Excel likely to be encountered.


---
Regards,
Norman



"Shawn" wrote in message
...
Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
_
DataOption1:=xlSortNormal
Range("A6").Select


It works fine on my machine. However, when I e-mail this file to
other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn