It just raised a run-rime error but i will try your code and see how it works.

"Andy Pope" wrote:

You should be alright with,

Columns("L:L").Sort Key1:=Range("L1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

Does the code you posted not work or raise an error?

Cheers
Andy

playerbigdog wrote:
Ok, I ran into one more snage. I am trying to set up the sorted columns. Can
you tell if there is anything wrong with the code the Selection.Sort area?

Range("C2:E8760").Select
Selection.Copy
Range("L2").Select
ActiveSheet.Paste
Columns("L:L").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("L1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Sort Key1:=Range("L1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("M:M").Select
Selection.Sort Key1:=Range("M1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Sort Key1:=Range("M1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("N:N").Select
Selection.Sort Key1:=Range("N1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

"playerbigdog" wrote:


OK, thanks guys. I think I am getting it slowly figured out!

"Andy Pope" wrote:


Hi,

xl2007 does not support custom chart types.
You maybe be able to use the new ApplyChartTemplate method. Other wise you
will need to apply the custom formatting within the code.

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Bob Phillips" wrote in message
...

I can't test that because I don't have a custom chart type of Chart_1. Is
that your problem too?

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my
addy)



"playerbigdog" wrote in message
...

Sounds great. Here is the particular part of the code i am haveing
problems
with. If temp1 = 43 Or myVar3 = "43" Then
Range("B2:E8758").Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _
"Chart_1"
ActiveChart.SetSourceData Source:=Sheets(myVar1).Range("B2:E8758"), _
PlotBy:=xlColumns
Else
Range("B2:E8758").Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _
"Chart_1"
ActiveChart.SetSourceData Source:=Sheets(myVar1).Range("B2:E8758"), _
PlotBy:=xlColumns
Where the else starts, is where my problems start. What is the new the
chart
information?

"Bob Phillips" wrote:


There are no major differences in code in the two. 2007 has certain
additions to cope with the extended object model, and certain things
have
changed slightly (such as FileSearch no longer works). But all of these
are
relatively minor. The big problem lies in the way things work in 2007,
the
ribbon is very different than commandbars, charting has been re-written
(re-destroyed some might argue), conditional formatting is very
different
and so on and so on. These may impact on your applications, they might
not.
Only testing will tell.

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my
addy)



"playerbigdog" wrote in message
...

Back in 2004 a intern created a Visual Basic program that ran using
access
and excel 2003. I am fairly new to Visual Basic and want to implement
into
Office 2007. What, if any, are the major differences in code between
2003
and
2007?





--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info