If you're not changing something in that print setup portion, comment it out (or
just delete it).

It'll make your macro a little faster (since it does less), too.

Chris wrote:

Chip,

Thanks, it fixed that one but now it stops on
PrintQuality = 600 which may be unique to the print
setup. If so, how can I make this work universally.

The other hang up is on the line:
.PrintErrors = xlPrintErrorsDisplayed
But if delete it everything goes okay. The one I can't
get is how to make the PrintQuality a universal setting.

My whole routine is as follows:
Sub Print_Man_Hours_by_Division_Report()
'
' Print_Man_Hours_by_Division_Report Macro
' Macro recorded 9/4/2003 by J. Christopher Cantele
'
' Make sure the TimeSheet Sheet is active
Sheets("TimeSheet").Activate
'
Range("A4").Select
Selection.RemoveSubtotal
Range("=Offset(I4,,,CountA(I:I),-9)").Sort Key1:=Range
("F4"), Order1:=xlAscending, Key2:=Range _
("H4"), Order2:=xlAscending, Key3:=Range("B4"),
Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1,
MatchCase:=False, Orientation:= _
xlTopToBottom
Selection.Subtotal GroupBy:=6, Function:=xlSum,
TotalList:=Array(9), _
Replace:=True, PageBreaks:=False,
SummaryBelowData:=True
'Set up Page
Range("A4").Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$3"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = _
"&""Times New Roman,Bold""&16QCI Marine Offshore
Man Hours by Division&""Times New Roman,Regular""&10" &
Chr(10) & ""
.RightHeader = ""
.LeftFooter = "&D"
.CenterFooter = "Page &P of &N"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.57)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0.25)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 78
.PrintErrors = xlPrintErrorsDisplayed
End With

ActiveSheet.PageSetup.PrintArea = "=Offset(I1,,,CountA
(I:I),-9)"
ActiveSheet.PrintPreview

End Sub

-----Original Message-----
Chris,

The DataOption arguments were added in Excel 2002, so
they won't work in
Excel 2000. Omit the arguments.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com


"Chris" wrote in message
...
Chip,

Here it is. It hangs on the sort when it hits the
DataOption1:= please note that everything works like a
charm in Excel 2002.


Range("=Offset(I4,,,CountA(I:I),-9)").Sort Key1:=Range
("A4"), Order1:=xlAscending, Key2:=Range _
("B4"), Order2:=xlAscending, Key3:=Range("H4"),
Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1,
MatchCase:=False,
Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal

Thanks for looking.
Chris


-----Original Message-----
Chris,

Post the line of code that is causing the error.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com


"Chris" wrote in message
...
I wrote a fairly elaborate spreadsheet with macros
throughtout. It was written in Excel 2002
v10.4524.4219
SP-2. I have transferred it to the other users in
our
office running Excel 2000 v9.0.6926 SP-3. We are
seeing "Compile Error" "Named argument Not Found"
when
try to run the macros. The debugger stops
on "DataOption1:=". Please tell me if any steps are
available to fix this without having to rewrite the
spreadsheet in a lower version and Where I can find
the
proper syntax for other errors that may occur after
this
one is fixed. Many thanks

Chris C.


.



.


--

Dave Peterson