D
Darren
Hi,
Hope someone can help with this. Below is a macro that I've created using
ExcelXP. We send the spreadsheet to someone using Office 2000 and they
receive an application error 1004. Object or resource(this might be wrong)
defined error. We don't have any Office 2000 machines here and I can't
replicate the problem using XP.
(Where the 3 dots are (...) in the code is a replacement for a brandname
that I can't mention)
Sub ...()
'
' ... Macro
' Macro recorded 16/01/2003 by '
'
Sheets("Sheet2").Select
Range("Hdg").Select
Selection.AutoFilter Field:=1, Criteria1:="..."
Application.Goto Reference:="Claims"
Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Key2:=Range("D7")
_
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1,
MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:= _
xlSortNormal
Range("A1").Select
End Sub
Please let me know if you've got any ideas.
Cheers, Darren.
Hope someone can help with this. Below is a macro that I've created using
ExcelXP. We send the spreadsheet to someone using Office 2000 and they
receive an application error 1004. Object or resource(this might be wrong)
defined error. We don't have any Office 2000 machines here and I can't
replicate the problem using XP.
(Where the 3 dots are (...) in the code is a replacement for a brandname
that I can't mention)
Sub ...()
'
' ... Macro
' Macro recorded 16/01/2003 by '
'
Sheets("Sheet2").Select
Range("Hdg").Select
Selection.AutoFilter Field:=1, Criteria1:="..."
Application.Goto Reference:="Claims"
Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Key2:=Range("D7")
_
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1,
MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:= _
xlSortNormal
Range("A1").Select
End Sub
Please let me know if you've got any ideas.
Cheers, Darren.